/[emacs]/emacs/lisp/filesets.el
ViewVC logotype

Diff of /emacs/lisp/filesets.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21 by gm, Wed Mar 30 15:12:59 2005 UTC revision 1.22 by gm, Sun Apr 3 16:55:58 2005 UTC
# Line 250  key is supported." Line 250  key is supported."
250  ;  (customize-set-variable var val))  ;  (customize-set-variable var val))
251  ;  (filesets-build-menu))  ;  (filesets-build-menu))
252    
253    ;; It seems this is a workaround for the XEmacs issue described in the
254    ;; doc-string of filesets-menu-ensure-use-cached. Under Emacs this is
255    ;; essentially just `set-default'.
256  (defun filesets-set-default (sym val &optional init-flag)  (defun filesets-set-default (sym val &optional init-flag)
257    "Set-default wrapper function used in conjunction with `defcustom'."    "Set-default wrapper function used in conjunction with `defcustom'.
258    If SYM is in the list `filesets-ignore-next-set-default', delete
259    it from that list, and return nil.  Otherwise, set the value of
260    SYM to VAL and return t.  If INIT-FLAG is non-nil, set with
261    `custom-initialize-set', otherwise with `set-default'."
262    (let ((ignore-flag (member sym filesets-ignore-next-set-default)))    (let ((ignore-flag (member sym filesets-ignore-next-set-default)))
263      (if ignore-flag      (if ignore-flag
264          (setq filesets-ignore-next-set-default          (setq filesets-ignore-next-set-default

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26