[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-commit] emacs/lisp/mh-e mh-tool-bar.el ChangeLog
From: |
Bill Wohler |
Subject: |
[Emacs-commit] emacs/lisp/mh-e mh-tool-bar.el ChangeLog |
Date: |
Wed, 19 Apr 2006 21:02:59 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch:
Changes by: Bill Wohler <address@hidden> 06/04/19 21:02:59
Modified files:
lisp/mh-e : mh-tool-bar.el ChangeLog
Log message:
(mh-tool-bar-define): Fix enable-expr so that one can permenently
disable a button (such as a separator) with nil.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-tool-bar.el.diff?tr1=1.6&tr2=1.7&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.207&tr2=1.208&r1=text&r2=text
Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.207 emacs/lisp/mh-e/ChangeLog:1.208
--- emacs/lisp/mh-e/ChangeLog:1.207 Tue Apr 18 21:29:03 2006
+++ emacs/lisp/mh-e/ChangeLog Wed Apr 19 21:02:59 2006
@@ -1,3 +1,8 @@
+2006-04-19 Bill Wohler <address@hidden>
+
+ * mh-tool-bar.el (mh-tool-bar-define): Fix enable-expr so that one
+ can permenently disable a button (such as a separator) with nil.
+
2006-04-18 Bill Wohler <address@hidden>
* mh-e.el (defcustom-mh, defface-mh, defgroup-mh, mh-face-data)
Index: emacs/lisp/mh-e/mh-tool-bar.el
diff -u emacs/lisp/mh-e/mh-tool-bar.el:1.6 emacs/lisp/mh-e/mh-tool-bar.el:1.7
--- emacs/lisp/mh-e/mh-tool-bar.el:1.6 Thu Mar 30 23:39:32 2006
+++ emacs/lisp/mh-e/mh-tool-bar.el Wed Apr 19 21:02:59 2006
@@ -151,7 +151,7 @@
(doc (if (string-match "\\(.*\\)\n" full-doc)
(match-string 1 full-doc)
full-doc))
- (enable-expr (or (nth 4 button) t))
+ (enable-expr (if (eql (length button) 4) t (nth 4 button)))
(modes (nth 1 button))
functions show-sym)
(when (memq 'letter modes) (setq functions `(:letter ,name)))
@@ -318,7 +318,8 @@
'mh-tool-bar-folder-buttons
'(list ,@(mapcar (lambda (x) `(quote ,x)) folder-defaults))
"List of buttons to include in MH-Folder tool bar."
- :group 'mh-tool-bar :set 'mh-tool-bar-folder-buttons-set
+ :group 'mh-tool-bar
+ :set 'mh-tool-bar-folder-buttons-set
:type '(set ,@(loop for x in folder-buttons
for y in folder-docs
collect `(const :tag ,y ,x)))
@@ -328,7 +329,8 @@
'mh-tool-bar-letter-buttons
'(list ,@(mapcar (lambda (x) `(quote ,x)) letter-defaults))
"List of buttons to include in MH-Letter tool bar."
- :group 'mh-tool-bar :set 'mh-tool-bar-letter-buttons-set
+ :group 'mh-tool-bar
+ :set 'mh-tool-bar-letter-buttons-set
:type '(set ,@(loop for x in letter-buttons
for y in letter-docs
collect `(const :tag ,y ,x)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-commit] emacs/lisp/mh-e mh-tool-bar.el ChangeLog,
Bill Wohler <=