Mercurial > emacs
comparison lisp/midnight.el @ 23268:7f15741f1899
(clean-buffer-list-kill-regexps,
clean-buffer-list-kill-buffer-names,
clean-buffer-list-kill-never-buffer-names,
clean-buffer-list-kill-never-regexps): Fix customize type.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Fri, 18 Sep 1998 09:14:52 +0000 |
| parents | b1ce2a4bc9b0 |
| children | b61fd1c104f9 |
comparison
equal
deleted
inserted
replaced
| 23267:a804a047b23d | 23268:7f15741f1899 |
|---|---|
| 107 If a member of the list is a cons, it's `car' is the regexp and its `cdr' is | 107 If a member of the list is a cons, it's `car' is the regexp and its `cdr' is |
| 108 the number of seconds to use instead of `clean-buffer-list-delay-special'. | 108 the number of seconds to use instead of `clean-buffer-list-delay-special'. |
| 109 See also `clean-buffer-list-kill-buffer-names', | 109 See also `clean-buffer-list-kill-buffer-names', |
| 110 `clean-buffer-list-kill-never-regexps' and | 110 `clean-buffer-list-kill-never-regexps' and |
| 111 `clean-buffer-list-kill-never-buffer-names'." | 111 `clean-buffer-list-kill-never-buffer-names'." |
| 112 :type 'list | 112 :type '(repeat regexp) |
| 113 :group 'midnight) | 113 :group 'midnight) |
| 114 | 114 |
| 115 (defcustom clean-buffer-list-kill-buffer-names | 115 (defcustom clean-buffer-list-kill-buffer-names |
| 116 '("*Help*" "*Apropos*" "*Man " "*Buffer List*" "*Compile-Log*" "*info*" | 116 '("*Help*" "*Apropos*" "*Man " "*Buffer List*" "*Compile-Log*" "*info*" |
| 117 "*vc*" "*vc-diff*" "*diff*") | 117 "*vc*" "*vc-diff*" "*diff*") |
| 122 If a member of the list is a cons, it's `car' is the name and its `cdr' is | 122 If a member of the list is a cons, it's `car' is the name and its `cdr' is |
| 123 the number of seconds to use instead of `clean-buffer-list-delay-special'. | 123 the number of seconds to use instead of `clean-buffer-list-delay-special'. |
| 124 See also `clean-buffer-list-kill-regexps', | 124 See also `clean-buffer-list-kill-regexps', |
| 125 `clean-buffer-list-kill-never-regexps' and | 125 `clean-buffer-list-kill-never-regexps' and |
| 126 `clean-buffer-list-kill-never-buffer-names'." | 126 `clean-buffer-list-kill-never-buffer-names'." |
| 127 :type 'list | 127 :type '(repeat string) |
| 128 :group 'midnight) | 128 :group 'midnight) |
| 129 | 129 |
| 130 (defcustom clean-buffer-list-kill-never-buffer-names | 130 (defcustom clean-buffer-list-kill-never-buffer-names |
| 131 '("*scratch*" "*Messages*") | 131 '("*scratch*" "*Messages*") |
| 132 "*List of buffer names which will never be killed by `clean-buffer-list'. | 132 "*List of buffer names which will never be killed by `clean-buffer-list'. |
| 133 See also `clean-buffer-list-kill-never-regexps'. | 133 See also `clean-buffer-list-kill-never-regexps'. |
| 134 Note that this does override `clean-buffer-list-kill-regexps' and | 134 Note that this does override `clean-buffer-list-kill-regexps' and |
| 135 `clean-buffer-list-kill-buffer-names' so a buffer matching any of these | 135 `clean-buffer-list-kill-buffer-names' so a buffer matching any of these |
| 136 two lists will NOT be killed if it is also present in this list." | 136 two lists will NOT be killed if it is also present in this list." |
| 137 :type 'list | 137 :type '(repeat string) |
| 138 :group 'midnight) | 138 :group 'midnight) |
| 139 | 139 |
| 140 | 140 |
| 141 (defcustom clean-buffer-list-kill-never-regexps '("^ \*Minibuf-.*\*$") | 141 (defcustom clean-buffer-list-kill-never-regexps '("^ \*Minibuf-.*\*$") |
| 142 "*List of regexp saying which buffers will never be killed at midnight. | 142 "*List of regexp saying which buffers will never be killed at midnight. |
| 143 See also `clean-buffer-list-kill-never-buffer-names'. | 143 See also `clean-buffer-list-kill-never-buffer-names'. |
| 144 Killing is done by `clean-buffer-list'. | 144 Killing is done by `clean-buffer-list'. |
| 145 Note that this does override `clean-buffer-list-kill-regexps' and | 145 Note that this does override `clean-buffer-list-kill-regexps' and |
| 146 `clean-buffer-list-kill-buffer-names' so a buffer matching any of these | 146 `clean-buffer-list-kill-buffer-names' so a buffer matching any of these |
| 147 two lists will NOT be killed if it also matches anything in this list." | 147 two lists will NOT be killed if it also matches anything in this list." |
| 148 :type 'list | 148 :type '(repeat regexp) |
| 149 :group 'midnight) | 149 :group 'midnight) |
| 150 | 150 |
| 151 (defun midnight-find (el ls test &optional key) | 151 (defun midnight-find (el ls test &optional key) |
| 152 "A stopgap solution to the absence of `find' in ELisp." | 152 "A stopgap solution to the absence of `find' in ELisp." |
| 153 (dolist (rr ls) | 153 (dolist (rr ls) |