# HG changeset patch # User Jan Dj¸«£rv # Date 1188296123 0 # Node ID 73eb55bef5f60bf8414f3c06b76a39b779180817 # Parent 54f31349f3b9734da94c4039b469a1a3c112fcae (info-tool-bar-map): Add :rtl keyword to right/left-arrow and prev/next-node. diff -r 54f31349f3b9 -r 73eb55bef5f6 lisp/info.el --- a/lisp/info.el Tue Aug 28 10:14:02 2007 +0000 +++ b/lisp/info.el Tue Aug 28 10:15:23 2007 +0000 @@ -3262,10 +3262,14 @@ (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)