Mercurial > hg > xemacs-beta
diff lisp/packages/info.el @ 189:489f57a838ef r20-3b21
Import from CVS: tag r20-3b21
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:57:07 +0200 |
parents | 3d6bfa290dbd |
children | f53b5ca2e663 |
line wrap: on
line diff
--- a/lisp/packages/info.el Mon Aug 13 09:56:30 2007 +0200 +++ b/lisp/packages/info.el Mon Aug 13 09:57:07 2007 +0200 @@ -7,6 +7,7 @@ ;; Richard Stallman <rms@gnu.ai.mit.edu> ;; Maintainer: Dave Gillespie <daveg@synaptics.com> ;; Version: 1.07 of 7/22/93 +;; Keywords: docs, help ;; This file is part of XEmacs. @@ -306,8 +307,10 @@ ;; Code: (defgroup info nil - "Info subsystem" - :group 'help) + "The info package for Emacs." + :group 'help + :group 'docs) + (defcustom Info-inhibit-toolbar nil "*Non-nil means don't use the specialized Info toolbar." @@ -356,9 +359,9 @@ If nil, they beep and remain in the current node. If t, they move to the next node (like Info-global-next/prev). If anything else, they must be pressed twice to move to the next node." - :type '(radio (const :tag "off" nil) - (const :tag "advance" t) - (const :tag "confirm" twice)) + :type '(choice (const :tag "off" nil) + (const :tag "advance" t) + (const :tag "confirm" twice)) :group 'info) (defcustom Info-fontify t @@ -2257,6 +2260,11 @@ (and (>= x w/3) (<= x (+ w/3 w/3)))) (Info-up) t) + ;; In the bottom 1/4 and inside the middle 1/3 + ((and (>= y (+ h/4 h/4 h/4)) + (and (>= x w/3) (<= x (+ w/3 w/3)))) + (Info-nth-menu-item 1) + t) ;; In the lower 3/4 and the right 1/2 ;; OR in the upper 1/4 and the right 1/3 ((or (and (>= y h/4) (>= x w/2))