Changeset 4111 for trunk/lisp/mh-e/mh-tool-bar.el

Timestamp:

07/16/06 08:36:52 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/mh-e/mh-tool-bar.el (modified) (6 diffs)

trunk/lisp/mh-e/mh-tool-bar.el

@@ -150 +150 @@
-             (icon (nth 2 button))
-             (xemacs-icon (mh-do-in-xemacs
-(cdr (assoc (intern icon
+`(cdr (assoc (quote ,(intern icon)
-             (full-doc (nth 3 button))
-             (doc (if (string-match "\\(.*\\)\n" full-doc)
@@ -190 +190 @@
-                 (docs (cond ((eq mbuttons 'letter-buttons) 'letter-docs)
-                             ((eq mbuttons 'folder-buttons) 'folder-docs))))
-[,xemacs-icon ,function t ,full-doc]
+(vector ,xemacs-icon ',function t ,full-doc)
-            (add-to-list
-             setter `(when (member ',name ,list)
@@ -289 +289 @@
-       (mh-do-in-xemacs
-         (defvar mh-tool-bar-folder-vector-map
-',
-
-collect (cons button vector
+(list ,@
+  
+  collect `(cons ',button ,vector)
-         (defvar mh-tool-bar-show-vector-map
-',
-
-collect (cons button vector
+(list ,@
+  
+  collect `(cons ',button ,vector)
-         (defvar mh-tool-bar-letter-vector-map
-',
-
-collect (cons button vector
- nil
- nil
- nil
+(list ,@
+  
+  collect `(cons ',button ,vector)
+
+
+
-         ;; Custom setter functions
-         (defun mh-tool-bar-letter-buttons-set (symbol value)
@@ -309 +309 @@
-             (setq mh-tool-bar-letter-buttons
-                   (loop for b in value
-
+
+
-         (defun mh-tool-bar-folder-buttons-set (symbol value)
-           (set-default symbol value)
@@ -321 +322 @@
-         (defun mh-tool-bar-init (mode)
-           "Install tool bar in MODE."
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
-               (cond
-                ((eq mh-xemacs-tool-bar-position 'top)
@@ -368 +372 @@
-                            collect `(const :tag ,y ,x)))
-        ;;:package-version '(MH-E "7.1")
-
-
+
+
+
-(mh-tool-bar-define
- ((:folder mh-inc-folder mh-mime-save-parts