[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/info.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/info.el |
Date: |
Mon, 01 Apr 2002 11:27:59 -0500 |
Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.294 emacs/lisp/info.el:1.295
*** emacs/lisp/info.el:1.294 Fri Mar 8 04:39:16 2002
--- emacs/lisp/info.el Mon Apr 1 11:27:59 2002
***************
*** 2151,2167 ****
(defvar info-tool-bar-map
(if (display-graphic-p)
! (let ((tool-bar-map (make-sparse-keymap)))
! (tool-bar-add-item-from-menu 'Info-exit "close" Info-mode-map)
! (tool-bar-add-item-from-menu 'Info-prev "left_arrow" Info-mode-map)
! (tool-bar-add-item-from-menu 'Info-next "right_arrow" Info-mode-map)
! (tool-bar-add-item-from-menu 'Info-up "up_arrow" Info-mode-map)
! (tool-bar-add-item-from-menu 'Info-last "undo" Info-mode-map)
! (tool-bar-add-item-from-menu 'Info-top-node "home" Info-mode-map)
! (tool-bar-add-item-from-menu 'Info-index "index" Info-mode-map)
! (tool-bar-add-item-from-menu 'Info-goto-node "jump_to" Info-mode-map)
! (tool-bar-add-item-from-menu 'Info-search "search" Info-mode-map)
! tool-bar-map)))
(defvar Info-menu-last-node nil)
;; Last node the menu was created for.
--- 2151,2167 ----
(defvar info-tool-bar-map
(if (display-graphic-p)
! (let ((map (make-sparse-keymap)))
! (tool-bar-local-item-from-menu 'Info-exit "close" map Info-mode-map)
! (tool-bar-local-item-from-menu 'Info-prev "left_arrow" map
Info-mode-map)
! (tool-bar-local-item-from-menu 'Info-next "right_arrow" map
Info-mode-map)
! (tool-bar-local-item-from-menu 'Info-up "up_arrow" map Info-mode-map)
! (tool-bar-local-item-from-menu 'Info-last "undo" map Info-mode-map)
! (tool-bar-local-item-from-menu 'Info-top-node "home" map Info-mode-map)
! (tool-bar-local-item-from-menu 'Info-index "index" map Info-mode-map)
! (tool-bar-local-item-from-menu 'Info-goto-node "jump_to" map
Info-mode-map)
! (tool-bar-local-item-from-menu 'Info-search "search" map Info-mode-map)
! map)))
(defvar Info-menu-last-node nil)
;; Last node the menu was created for.
- [Emacs-diffs] Changes to emacs/lisp/info.el,
Richard M. Stallman <=