Mercurial > emacs
diff lisp/fast-lock.el @ 17507:fd87760f20cd
Cleaned up custom support.
author | Simon Marshall <simon@gnu.org> |
---|---|
date | Fri, 18 Apr 1997 07:08:56 +0000 |
parents | 5ea11c278a57 |
children | 44ee1d09b4a8 |
line wrap: on
line diff
--- a/lisp/fast-lock.el Fri Apr 18 02:54:33 1997 +0000 +++ b/lisp/fast-lock.el Fri Apr 18 07:08:56 1997 +0000 @@ -253,7 +253,10 @@ would cause a file's current directory to be used if the file is under your home directory hierarchy, or otherwise the absolute directory `~/.emacs-flc'." - :type '(repeat (radio (cons regexp directory) directory)) + :type '(repeat (radio (cons :tag "Matching" + (regexp :tag "regexp") + (directory :tag "directory")) + (directory :tag "directory"))) :group 'fast-lock) (defcustom fast-lock-minimum-size (* 25 1024) @@ -265,10 +268,17 @@ ((c-mode . 25600) (c++-mode . 25600) (rmail-mode . 1048576)) means that the minimum size is 25K for buffers in C or C++ modes, one megabyte for buffers in Rmail mode, and size is irrelevant otherwise." - :type '(radio (const :tag "None" nil) - (integer :tag "Size") - (repeat (cons (symbol :tag "Major Mode") - (integer :tag "Size")))) + :type '(choice (const :tag "none" nil) + (integer :tag "size") + (repeat :menu-tag "mode specific" :tag "mode specific" + :value ((t . nil)) + (cons :tag "Instance" + (radio :tag "Mode" + (const :tag "all" t) + (symbol :tag "name")) + (radio :tag "Size" + (const :tag "none" nil) + (integer :tag "size"))))) :group 'fast-lock) (defcustom fast-lock-save-events '(kill-buffer kill-emacs) @@ -276,7 +286,9 @@ Valid events are `save-buffer', `kill-buffer' and `kill-emacs'. If concurrent editing sessions use the same associated cache file for a file's buffer, then you should add `save-buffer' to this list." - :type '(set (const kill-buffer) (const save-buffer) (const kill-emacs)) + :type '(set (const :tag "buffer saving" save-buffer) + (const :tag "buffer killing" kill-buffer) + (const :tag "emacs killing" kill-emacs)) :group 'fast-lock) (defcustom fast-lock-save-others t @@ -289,9 +301,9 @@ (defcustom fast-lock-verbose font-lock-verbose "*If non-nil, means show status messages for cache processing. If a number, only buffers greater than this size have processing messages." - :type '(radio (const :tag "Never" nil) - (const :tag "Always" t) - (integer :tag "Size")) + :type '(choice (const :tag "never" nil) + (const :tag "always" t) + (integer :tag "size")) :group 'fast-lock) (defvar fast-lock-save-faces