From: Jan Djärv Date: Sun, 2 Sep 2007 16:59:44 +0000 (+0000) Subject: (info-tool-bar-map): Add :rtl keyword to right/left-arrow and X-Git-Tag: emacs-pretest-22.1.90~865 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7a079cee9f40c982af9ee699c966d576b29a9946;p=emacs.git (info-tool-bar-map): Add :rtl keyword to right/left-arrow and prev/next-node. --- diff --git a/lisp/info.el b/lisp/info.el index e77aeab6b8f..07bce5bd487 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)