Lines Matching +refs:default +refs:value
121 (defvar filesets-ignore-next-set-default nil
122 "A list of custom variables for which the next `set-default' will be
143 the default for XEmacs prior to 21.5. If you want to change this value
147 So, when should you think about setting this value to t? If filesets.el
177 Like `some', return the first value of FSS-PRED that is non-nil."
248 "Set-default wrapper function."
250 (set-default var val))
256 ;; essentially just `set-default'.
257 (defun filesets-set-default (sym val &optional init-flag)
258 "Set-default wrapper function used in conjunction with `defcustom'.
259 If SYM is in the list `filesets-ignore-next-set-default', delete
260 it from that list, and return nil. Otherwise, set the value of
262 `custom-initialize-set', otherwise with `set-default'."
263 (let ((ignore-flag (member sym filesets-ignore-next-set-default)))
265 (setq filesets-ignore-next-set-default
266 (delete sym filesets-ignore-next-set-default))
269 (set-default sym val)))
272 (defun filesets-set-default! (sym val)
273 "Call `filestes-set-default' and reset cached data (i.e. rebuild menu)."
274 (when (filesets-set-default sym val)
277 (defun filesets-set-default+ (sym val)
278 "Call `filestes-set-default' and reset filesets' standard menu."
279 (when (filesets-set-default sym val)
285 (defun filesets-data-set-default (sym val)
286 "Set the default for `filesets-data'."
289 (when (default-boundp 'filesets-data)
300 (filesets-set-default sym val))
312 :set (function filesets-set-default)
319 :set (function filesets-set-default)
326 :set (function filesets-set-default)
333 :set (function filesets-set-default)
339 :set (function filesets-set-default!)
345 :set (function filesets-set-default!)
351 ; :set (function filesets-set-default!)
362 :set (function filesets-set-default)
390 :set (function filesets-set-default)
394 :value filesets-submenus)
396 :value filesets-menu-cache)
398 :value filesets-ingroup-cache)
400 :value filesets-data)
402 :value filesets-external-viewers)
404 :value filesets-ingroup-patterns)
406 :value filesets-be-docile-flag)
407 (sexp :tag "Other" :value nil)))
421 \(insert (format \"(setq-default filesets-data '%S)\"
428 :set (function filesets-set-default)
436 :set (function filesets-set-default)
445 :set (function filesets-set-default)
451 Set this value to 0 to turn menu splitting off. BTW, parts of submenus
452 will not be rewrapped if their length exceeds this value."
453 :set (function filesets-set-default)
459 :set (function filesets-set-default)
468 Note: You have to manually rebuild the menu if you change this value."
469 :set (function filesets-set-default)
472 :value dired)
474 :value ("" "%s")
478 :value nil))
484 `filesets-find-or-display-file' ... Filesets' default function for
494 :set (function filesets-set-default)
497 :value filesets-find-or-display-file)
499 :value filesets-find-file)
501 :value nil))
507 :set (function filesets-set-default)
510 :value save-buffer)
512 :value nil))
524 :set (function filesets-set-default)
532 :set (function filesets-set-default)
538 :set (function filesets-set-default)
544 :set (function filesets-set-default)
566 :set (function filesets-set-default)
589 :set (function filesets-set-default+)
591 (list :tag "Definition" :value ("")
599 :value nil)
601 :value "<file-name>")
603 :value "<<file-name>>")
605 :value nil)))))
693 :set (function filesets-set-default)
696 :value ("^.+\\.suffix$" "")
699 (symbol :tag "Function" :value nil)
700 (string :tag "Program" :value ""))
704 :value (:constraintp)
706 :value :constraintp)
709 :value (:constraint-flag)
711 :value :constraint-flag)
714 :value (:ignore-on-open-all t)
716 :value :ignore-on-open-all)
719 :value (:ignore-on-read-text t)
721 :value :ignore-on-read-text)
724 :value (:args)
726 :value :args)
730 :value "")
732 :value nil)
734 :value nil))))
736 :value (:open-hook)
738 :value :open-hook)
741 ; :value (:close-hook)
743 ; :value :close-hook)
746 :value (:capture-output t)
748 :value :capture-output)
839 :get-file-name FUNCTION (default: `filesets-which-file') ... A function
844 :match-number INTEGER (default: 1) ... The number of the match/group
853 :scan-depth INTEGER (default: 0) ... Whether included files should be
861 :case-sensitive BOOLEAN (default: nil) ... Whether a pattern is
891 :set (function filesets-set-default)
895 :tag "Definition" :value ("^.+\\.suffix$" t)
896 (regexp :tag "File Pattern" :value "^.+\\.suffix$")
897 (boolean :tag "Remove Duplicates" :value t)
903 :value (:name "")
904 (const :format "" :value :name)
907 :value (:pattern "\\<CMD\\W*\\(.+\\)\\>")
908 (const :format "" :value :pattern)
911 :value (:get-file-name)
912 (const :format "" :value :get-file-name)
915 :value (:match-number 1)
916 (const :format "" :value :match-number)
919 :value (:stub-flag t)
920 (const :format "" :value :stub-flag)
923 :value (:stubp)
924 (const :format "" :value :stubp)
927 :value (:scan-depth 0)
928 (const :format "" :value :scan-depth)
931 :value (:case-sensitive)
932 (const :format "" :value :case-sensitive)
935 :value (:preprocess)
936 (const :format "" :value :preprocess)
1008 :set (function filesets-data-set-default)
1011 (string :tag "Name" :value "")
1014 :tag "Type" :value nil
1016 :value (:pattern "~/" "^.+\\.suffix$")
1017 (const :format "" :value :pattern)
1021 :value (:files)
1022 (const :format "" :value :files)
1025 :value (:file "~/")
1026 (const :format "" :value :file)
1029 :value (:ingroup "~/")
1030 (const :format "" :value :ingroup)
1031 (file :tag "File" :value "~/"))
1033 :value (:tree "~/" "^.+\\.suffix$")
1034 (const :format "" :value :tree)
1038 :value (:filter-dirs-flag)
1039 (const :format "" :value :filter-dirs-flag)
1040 (boolean :tag "Boolean" :value nil))
1042 :value (:tree-max-level 3)
1043 (const :format "" :value :tree-max-level)
1046 :value (:verbosity 1)
1047 (const :format "" :value :verbosity)
1050 :value (:dormant-flag)
1051 (const :format "" :value :dormant-flag)
1054 :value (:dormant-p)
1055 (const :format "" :value :dormant-p)
1058 :value (:save)
1059 (const :format "" :value :save)
1062 :value (:open)
1063 (const :format "" :value :open)
1070 :set (function filesets-set-default)
1102 ACCESS-FN ... function to get the string value of LST's elements.
1431 (defun filesets-alist-get (alist key &optional default carp)
1432 "Get KEY's value in the association list ALIST.
1440 (default default)
1443 (defun filesets-data-get (entry key &optional default carp)
1444 "Extract the value for KEY in the data part of fileset ENTRY.
1446 (filesets-alist-get (filesets-data-get-data entry) key default carp))
1448 (defun filesets-data-set (entry key value)
1449 "Set the value for KEY in the data part of fileset ENTRY."
1453 (setcdr elt value)
1454 (setcdr entry (cons (cons key value) alist)))))
1540 value will be deduced from FILESET-NAME."
2402 (insert (format "(setq-default %s '%S)" this (eval this)))
2406 'filesets-ignore-next-set-default
2408 'filesets-ignore-next-set-default))))
2519 ;;`filesets-data-set-default'