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 |