Mercurial > hg > xemacs-beta

comparison lisp/packages/info.el @ 189:489f57a838ef r20-3b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b21
author cvs
date Mon, 13 Aug 2007 09:57:07 +0200
parents 3d6bfa290dbd
children f53b5ca2e663
comparison
equal deleted inserted replaced
188:e29a8e7498d9 189:489f57a838ef
5 5
6 ;; Author: Dave Gillespie <daveg@synaptics.com> 6 ;; Author: Dave Gillespie <daveg@synaptics.com>
7 ;; Richard Stallman <rms@gnu.ai.mit.edu> 7 ;; Richard Stallman <rms@gnu.ai.mit.edu>
8 ;; Maintainer: Dave Gillespie <daveg@synaptics.com> 8 ;; Maintainer: Dave Gillespie <daveg@synaptics.com>
9 ;; Version: 1.07 of 7/22/93 9 ;; Version: 1.07 of 7/22/93
10 ;; Keywords: docs, help
10 11
11 ;; This file is part of XEmacs. 12 ;; This file is part of XEmacs.
12 13
13 ;; XEmacs is free software; you can redistribute it and/or modify it 14 ;; XEmacs is free software; you can redistribute it and/or modify it
14 ;; under the terms of the GNU General Public License as published by 15 ;; under the terms of the GNU General Public License as published by
304 ;; Other changes in main ChangeLog. 305 ;; Other changes in main ChangeLog.
305 306
306 ;; Code: 307 ;; Code:
307 308
308 (defgroup info nil 309 (defgroup info nil
309 "Info subsystem" 310 "The info package for Emacs."
310 :group 'help) 311 :group 'help
312 :group 'docs)
313
311 314
312 (defcustom Info-inhibit-toolbar nil 315 (defcustom Info-inhibit-toolbar nil
313 "*Non-nil means don't use the specialized Info toolbar." 316 "*Non-nil means don't use the specialized Info toolbar."
314 :type 'boolean 317 :type 'boolean
315 :group 'info) 318 :group 'info)
354 (defcustom Info-auto-advance 'twice 357 (defcustom Info-auto-advance 'twice
355 "*Control what SPC and DEL do when they can't scroll any further. 358 "*Control what SPC and DEL do when they can't scroll any further.
356 If nil, they beep and remain in the current node. 359 If nil, they beep and remain in the current node.
357 If t, they move to the next node (like Info-global-next/prev). 360 If t, they move to the next node (like Info-global-next/prev).
358 If anything else, they must be pressed twice to move to the next node." 361 If anything else, they must be pressed twice to move to the next node."
359 :type '(radio (const :tag "off" nil) 362 :type '(choice (const :tag "off" nil)
360 (const :tag "advance" t) 363 (const :tag "advance" t)
361 (const :tag "confirm" twice)) 364 (const :tag "confirm" twice))
362 :group 'info) 365 :group 'info)
363 366
364 (defcustom Info-fontify t 367 (defcustom Info-fontify t
365 "*Non-nil enables font features in XEmacs. 368 "*Non-nil enables font features in XEmacs.
366 This variable is ignored unless running under XEmacs." 369 This variable is ignored unless running under XEmacs."
2255 ;; In the top 1/4 and inside the middle 1/3 2258 ;; In the top 1/4 and inside the middle 1/3
2256 ((and (<= y h/4) 2259 ((and (<= y h/4)
2257 (and (>= x w/3) (<= x (+ w/3 w/3)))) 2260 (and (>= x w/3) (<= x (+ w/3 w/3))))
2258 (Info-up) 2261 (Info-up)
2259 t) 2262 t)
2263 ;; In the bottom 1/4 and inside the middle 1/3
2264 ((and (>= y (+ h/4 h/4 h/4))
2265 (and (>= x w/3) (<= x (+ w/3 w/3))))
2266 (Info-nth-menu-item 1)
2267 t)
2260 ;; In the lower 3/4 and the right 1/2 2268 ;; In the lower 3/4 and the right 1/2
2261 ;; OR in the upper 1/4 and the right 1/3 2269 ;; OR in the upper 1/4 and the right 1/3
2262 ((or (and (>= y h/4) (>= x w/2)) 2270 ((or (and (>= y h/4) (>= x w/2))
2263 (and (< y h/4) (>= x (+ w/3 w/3)))) 2271 (and (< y h/4) (>= x (+ w/3 w/3))))
2264 (Info-next) 2272 (Info-next)