mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Check tool-bar-map is bound.

Browse source
This commit is contained in:
Glenn Morris 2008-06-12 03:58:11 +00:00
parent 022329c061
commit 219d083841
4 changed files with 20 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/mh-e/ChangeLog
View file

@ -1,3 +1,11 @@
2008-06-12 Glenn Morris <rgm@gnu.org>
* mh-seq.el (tool-bar-map): Define for compiler.
* mh-folder.el (mh-folder-mode):
* mh-letter.el (mh-letter-mode):
* mh-show.el (mh-show-mode): Check tool-bar-map is bound.
2008-06-08 John Paul Wallington <jpw@pobox.com>
* mh-acros.el (toplevel): Put `doc-string-elt' properties on

6
lisp/mh-e/mh-folder.el
View file

@ -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 <wohler@newt.com>
;; Maintainer: Bill Wohler <wohler@newt.com>
@ -590,7 +591,8 @@ perform the operation on all messages in that region.
(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)

7
lisp/mh-e/mh-letter.el
View file

@ -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 <wohler@newt.com>
;; Maintainer: Bill Wohler <wohler@newt.com>
@ -310,7 +310,8 @@ order).
(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

7
lisp/mh-e/mh-show.el
View file

@ -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 <wohler@newt.com>
;; Maintainer: Bill Wohler <wohler@newt.com>
@ -847,7 +847,8 @@ See also `mh-folder-mode'.
\\{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)