From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 28 Sep 1998 16:08:58 +0000 (+0000)
Subject: (clean-buffer-list-kill-regexps): Improve custom type.
X-Git-Tag: emacs-20.4~1604
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1e5a443809ef0eea5cd448a98a83932501499b02;p=emacs.git

(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.
---

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)