Mercurial > emacs
changeset 61238:e7c23f9a917c
(filesets-set-default): Doc fix.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 03 Apr 2005 16:55:58 +0000 |
| parents | 7d97c1ec9f23 |
| children | 9ab6e6aa09f7 |
| files | lisp/filesets.el |
| diffstat | 1 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/filesets.el Sun Apr 03 14:02:32 2005 +0000 +++ b/lisp/filesets.el Sun Apr 03 16:55:58 2005 +0000 @@ -250,8 +250,15 @@ ; (customize-set-variable var val)) ; (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'." + "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