[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-commit] emacs/lisp/mh-e mh-folder.el mh-letter.el mh-sh...
From: |
Glenn Morris |
Subject: |
[Emacs-commit] emacs/lisp/mh-e mh-folder.el mh-letter.el mh-sh... |
Date: |
Thu, 12 Jun 2008 03:57:57 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 08/06/12 03:57:57
Modified files:
lisp/mh-e : mh-folder.el mh-letter.el mh-show.el
Log message:
Check tool-bar-map is bound.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-folder.el?cvsroot=emacs&r1=1.20&r2=1.21
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-letter.el?cvsroot=emacs&r1=1.21&r2=1.22
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-show.el?cvsroot=emacs&r1=1.13&r2=1.14
Patches:
Index: mh-folder.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mh-e/mh-folder.el,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- mh-folder.el 6 May 2008 03:56:46 -0000 1.20
+++ mh-folder.el 12 Jun 2008 03:57:56 -0000 1.21
@@ -1,6 +1,7 @@
;;; mh-folder.el --- MH-Folder mode
-;; Copyright (C) 2002, 2003, 2005, 2006, 2007, 2008 Free Software Foundation,
Inc.
+;; Copyright (C) 2002, 2003, 2005, 2006, 2007, 2008
+;; Free Software Foundation, Inc.
;; Author: Bill Wohler <address@hidden>
;; Maintainer: Bill Wohler <address@hidden>
@@ -590,7 +591,8 @@
(mh-do-in-gnu-emacs
(unless mh-folder-tool-bar-map
(mh-tool-bar-folder-buttons-init))
- (set (make-local-variable 'tool-bar-map) mh-folder-tool-bar-map))
+ (if (boundp 'tool-bar-map)
+ (set (make-local-variable 'tool-bar-map) mh-folder-tool-bar-map)))
(mh-do-in-xemacs
(mh-tool-bar-init :folder))
(make-local-variable 'font-lock-defaults)
Index: mh-letter.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mh-e/mh-letter.el,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -b -r1.21 -r1.22
--- mh-letter.el 8 Jun 2008 21:52:28 -0000 1.21
+++ mh-letter.el 12 Jun 2008 03:57:56 -0000 1.22
@@ -1,7 +1,7 @@
;;; mh-letter.el --- MH-Letter mode
-;; Copyright (C) 1993, 1995, 1997,
-;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software
Foundation, Inc.
+;; Copyright (C) 1993, 1995, 1997, 2000, 2001, 2002, 2003, 2004, 2005,
+;; 2006, 2007, 2008 Free Software Foundation, Inc.
;; Author: Bill Wohler <address@hidden>
;; Maintainer: Bill Wohler <address@hidden>
@@ -310,7 +310,8 @@
(mh-do-in-gnu-emacs
(unless mh-letter-tool-bar-map
(mh-tool-bar-letter-buttons-init))
- (set (make-local-variable 'tool-bar-map) mh-letter-tool-bar-map))
+ (if (boundp 'tool-bar-map)
+ (set (make-local-variable 'tool-bar-map) mh-letter-tool-bar-map)))
(mh-do-in-xemacs
(mh-tool-bar-init :letter))
;; Set the local value of mh-mail-header-separator according to what is
Index: mh-show.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mh-e/mh-show.el,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- mh-show.el 6 May 2008 03:56:48 -0000 1.13
+++ mh-show.el 12 Jun 2008 03:57:56 -0000 1.14
@@ -1,7 +1,7 @@
;;; mh-show.el --- MH-Show mode
-;; Copyright (C) 1993, 1995, 1997,
-;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software
Foundation, Inc.
+;; Copyright (C) 1993, 1995, 1997, 2000, 2001, 2002, 2003, 2004, 2005,
+;; 2006, 2007, 2008 Free Software Foundation, Inc.
;; Author: Bill Wohler <address@hidden>
;; Maintainer: Bill Wohler <address@hidden>
@@ -847,7 +847,8 @@
\\{mh-show-mode-map}"
(mh-do-in-gnu-emacs
- (set (make-local-variable 'tool-bar-map) mh-show-tool-bar-map))
+ (if (boundp 'tool-bar-map)
+ (set (make-local-variable 'tool-bar-map) mh-show-tool-bar-map)))
(mh-do-in-xemacs
(mh-tool-bar-init :show))
(set (make-local-variable 'mail-header-separator) mh-mail-header-separator)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-commit] emacs/lisp/mh-e mh-folder.el mh-letter.el mh-sh...,
Glenn Morris <=