[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/filesets.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/filesets.el |
Date: |
Sun, 03 Apr 2005 12:55:58 -0400 |
Index: emacs/lisp/filesets.el
diff -c emacs/lisp/filesets.el:1.21 emacs/lisp/filesets.el:1.22
*** emacs/lisp/filesets.el:1.21 Wed Mar 30 15:12:59 2005
--- emacs/lisp/filesets.el Sun Apr 3 16:55:58 2005
***************
*** 250,257 ****
; (customize-set-variable var val))
; (filesets-build-menu))
(defun filesets-set-default (sym val &optional init-flag)
! "Set-default wrapper function used in conjunction with `defcustom'."
(let ((ignore-flag (member sym filesets-ignore-next-set-default)))
(if ignore-flag
(setq filesets-ignore-next-set-default
--- 250,264 ----
; (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'.
! 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
- [Emacs-diffs] Changes to emacs/lisp/filesets.el,
Glenn Morris <=