Function: filesets-set-default

filesets-set-default is a byte-compiled function defined in filesets.el.gz.

Signature

(filesets-set-default SYM VAL &optional INIT-FLAG)

Documentation

Set-default wrapper function used in conjunction with defcustom.

If SYM is in the list filesets-ignore-next-set-default, delete it from that list, and return nil. Otherwise, set the value of SYM to VAL and return t. If INIT-FLAG is non-nil, set with custom-initialize-set, otherwise with set-default.

Source Code

;; Defined in /usr/src/emacs/lisp/filesets.el.gz
;  (filesets-build-menu))

;; It seems this is a workaround for the XEmacs issue described in the
;; doc-string of filesets-menu-ensure-use-cached.  Under Emacs this is
;; essentially just `set-default'.
(defun filesets-set-default (sym val &optional init-flag)
  "Set-default wrapper function used in conjunction with `defcustom'.
If SYM is in the list `filesets-ignore-next-set-default', delete
it from that list, and return nil.  Otherwise, set the value of
SYM to VAL and return t.  If INIT-FLAG is non-nil, set with
`custom-initialize-set', otherwise with `set-default'."
  (let ((ignore-flag (member sym filesets-ignore-next-set-default)))
    (if ignore-flag
	(setq filesets-ignore-next-set-default
	      (delete sym filesets-ignore-next-set-default))
      (if init-flag
	  (custom-initialize-set sym val)
	(set-default sym val)))
    (not ignore-flag)))