From 1e5a443809ef0eea5cd448a98a83932501499b02 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 28 Sep 1998 16:08:58 +0000 Subject: [PATCH] (clean-buffer-list-kill-regexps): Improve custom type. (clean-buffer-list-kill-buffer-names): Likewise. (clean-buffer-list-kill-never-buffer-names): Likewise. (clean-buffer-list-kill-never-regexps): Likewise. --- lisp/midnight.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/midnight.el b/lisp/midnight.el index 8747aeadd36..28108eebc28 100644 --- a/lisp/midnight.el +++ b/lisp/midnight.el @@ -109,7 +109,7 @@ the number of seconds to use instead of `clean-buffer-list-delay-special'. See also `clean-buffer-list-kill-buffer-names', `clean-buffer-list-kill-never-regexps' and `clean-buffer-list-kill-never-buffer-names'." - :type '(repeat regexp) + :type '(repeat (regexp :tag "Regexp matching Buffer Name")) :group 'midnight) (defcustom clean-buffer-list-kill-buffer-names @@ -124,7 +124,7 @@ the number of seconds to use instead of `clean-buffer-list-delay-special'. See also `clean-buffer-list-kill-regexps', `clean-buffer-list-kill-never-regexps' and `clean-buffer-list-kill-never-buffer-names'." - :type '(repeat string) + :type '(repeat (string :tag "Buffer Name")) :group 'midnight) (defcustom clean-buffer-list-kill-never-buffer-names @@ -134,7 +134,7 @@ See also `clean-buffer-list-kill-never-regexps'. Note that this does override `clean-buffer-list-kill-regexps' and `clean-buffer-list-kill-buffer-names' so a buffer matching any of these two lists will NOT be killed if it is also present in this list." - :type '(repeat string) + :type '(repeat (string :tag "Buffer Name")) :group 'midnight) @@ -145,7 +145,7 @@ Killing is done by `clean-buffer-list'. Note that this does override `clean-buffer-list-kill-regexps' and `clean-buffer-list-kill-buffer-names' so a buffer matching any of these two lists will NOT be killed if it also matches anything in this list." - :type '(repeat regexp) + :type '(repeat (regexp :tag "Regexp matching Buffer Name")) :group 'midnight) (defun midnight-find (el ls test &optional key) -- 2.39.2