diff options
| author | Jan Djärv <jan.h.d@swipnet.se> | 2007-08-28 10:15:23 +0000 |
|---|---|---|
| committer | Jan Djärv <jan.h.d@swipnet.se> | 2007-08-28 10:15:23 +0000 |
| commit | 4bc5cb9aee23c81b3df90ea0b09939e3e423184a (patch) | |
| tree | d3947b39dc48852624985058463fe363cc0ba925 | |
| parent | cf0590c4514d90669f65437a72819f442db47dbb (diff) | |
| download | emacs-4bc5cb9aee23c81b3df90ea0b09939e3e423184a.tar.gz | |
(info-tool-bar-map): Add :rtl keyword to right/left-arrow and
prev/next-node.
| -rw-r--r-- | lisp/info.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/info.el b/lisp/info.el index 3253ae0ab29..fb6260585bc 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -3262,10 +3262,14 @@ If FORK is non-nil, it i spassed to `Info-goto-node'." (defvar info-tool-bar-map (if (display-graphic-p) (let ((map (make-sparse-keymap))) - (tool-bar-local-item-from-menu 'Info-history-back "left-arrow" map Info-mode-map) - (tool-bar-local-item-from-menu 'Info-history-forward "right-arrow" map Info-mode-map) - (tool-bar-local-item-from-menu 'Info-prev "prev-node" map Info-mode-map) - (tool-bar-local-item-from-menu 'Info-next "next-node" map Info-mode-map) + (tool-bar-local-item-from-menu 'Info-history-back "left-arrow" map Info-mode-map + :rtl "right-arrow") + (tool-bar-local-item-from-menu 'Info-history-forward "right-arrow" map Info-mode-map + :rtl "left-arrow") + (tool-bar-local-item-from-menu 'Info-prev "prev-node" map Info-mode-map + :rtl "next-node") + (tool-bar-local-item-from-menu 'Info-next "next-node" map Info-mode-map + :rtl "prev-node") (tool-bar-local-item-from-menu 'Info-up "up-node" 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-goto-node "jump-to" map Info-mode-map) |