Mercurial > emacs
comparison lisp/mh-e/mh-tool-bar.el @ 70114:29c303bc6423
(mh-tool-bar-define): Fix enable-expr so that one can permenently
disable a button (such as a separator) with nil.
author | Bill Wohler <wohler@newt.com> |
---|---|
date | Wed, 19 Apr 2006 21:02:59 +0000 |
parents | fb125d0913e5 |
children | 00cb3fe5fed5 |
comparison
equal
deleted
inserted
replaced
70113:ac1dd9b38f12 | 70114:29c303bc6423 |
---|---|
149 (cdr (assoc (intern icon) mh-xemacs-icon-map)))) | 149 (cdr (assoc (intern icon) mh-xemacs-icon-map)))) |
150 (full-doc (nth 3 button)) | 150 (full-doc (nth 3 button)) |
151 (doc (if (string-match "\\(.*\\)\n" full-doc) | 151 (doc (if (string-match "\\(.*\\)\n" full-doc) |
152 (match-string 1 full-doc) | 152 (match-string 1 full-doc) |
153 full-doc)) | 153 full-doc)) |
154 (enable-expr (or (nth 4 button) t)) | 154 (enable-expr (if (eql (length button) 4) t (nth 4 button))) |
155 (modes (nth 1 button)) | 155 (modes (nth 1 button)) |
156 functions show-sym) | 156 functions show-sym) |
157 (when (memq 'letter modes) (setq functions `(:letter ,name))) | 157 (when (memq 'letter modes) (setq functions `(:letter ,name))) |
158 (when (or (memq 'folder modes) (memq 'sequence modes)) | 158 (when (or (memq 'folder modes) (memq 'sequence modes)) |
159 (setq functions | 159 (setq functions |
316 ;; Declare customizable tool bars | 316 ;; Declare customizable tool bars |
317 (custom-declare-variable | 317 (custom-declare-variable |
318 'mh-tool-bar-folder-buttons | 318 'mh-tool-bar-folder-buttons |
319 '(list ,@(mapcar (lambda (x) `(quote ,x)) folder-defaults)) | 319 '(list ,@(mapcar (lambda (x) `(quote ,x)) folder-defaults)) |
320 "List of buttons to include in MH-Folder tool bar." | 320 "List of buttons to include in MH-Folder tool bar." |
321 :group 'mh-tool-bar :set 'mh-tool-bar-folder-buttons-set | 321 :group 'mh-tool-bar |
322 :set 'mh-tool-bar-folder-buttons-set | |
322 :type '(set ,@(loop for x in folder-buttons | 323 :type '(set ,@(loop for x in folder-buttons |
323 for y in folder-docs | 324 for y in folder-docs |
324 collect `(const :tag ,y ,x))) | 325 collect `(const :tag ,y ,x))) |
325 ;;:package-version '(MH-E "7.1") | 326 ;;:package-version '(MH-E "7.1") |
326 ) | 327 ) |
327 (custom-declare-variable | 328 (custom-declare-variable |
328 'mh-tool-bar-letter-buttons | 329 'mh-tool-bar-letter-buttons |
329 '(list ,@(mapcar (lambda (x) `(quote ,x)) letter-defaults)) | 330 '(list ,@(mapcar (lambda (x) `(quote ,x)) letter-defaults)) |
330 "List of buttons to include in MH-Letter tool bar." | 331 "List of buttons to include in MH-Letter tool bar." |
331 :group 'mh-tool-bar :set 'mh-tool-bar-letter-buttons-set | 332 :group 'mh-tool-bar |
333 :set 'mh-tool-bar-letter-buttons-set | |
332 :type '(set ,@(loop for x in letter-buttons | 334 :type '(set ,@(loop for x in letter-buttons |
333 for y in letter-docs | 335 for y in letter-docs |
334 collect `(const :tag ,y ,x))) | 336 collect `(const :tag ,y ,x))) |
335 ;;:package-version '(MH-E "7.1") | 337 ;;:package-version '(MH-E "7.1") |
336 )))) | 338 )))) |