Mercurial > hg > xemacs-beta
comparison lisp/packages/info.el @ 149:538048ae2ab8 r20-3b1
Import from CVS: tag r20-3b1
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:36:16 +0200 |
| parents | b980b6286996 |
| children | 28f395d8dc7a |
comparison
equal
deleted
inserted
replaced
| 148:f659db2a1f73 | 149:538048ae2ab8 |
|---|---|
| 418 (defcustom Info-annotations-path '("~/.infonotes" "/usr/lib/info.notes") | 418 (defcustom Info-annotations-path '("~/.infonotes" "/usr/lib/info.notes") |
| 419 "*Names of files that contain annotations for different Info nodes. | 419 "*Names of files that contain annotations for different Info nodes. |
| 420 By convention, the first one should reside in your personal directory. | 420 By convention, the first one should reside in your personal directory. |
| 421 The last should be a world-writable \"public\" annotations file." | 421 The last should be a world-writable \"public\" annotations file." |
| 422 :type '(repeat file) | 422 :type '(repeat file) |
| 423 :group 'info) | |
| 424 | |
| 425 (defcustom Info-button1-follows-hyperlink nil | |
| 426 "*Non-nil means mouse button1 click will follow hyperlink." | |
| 427 :type 'boolean | |
| 423 :group 'info) | 428 :group 'info) |
| 424 | 429 |
| 425 (defvar Info-standalone nil | 430 (defvar Info-standalone nil |
| 426 "Non-nil if Emacs was started solely as an Info browser.") | 431 "Non-nil if Emacs was started solely as an Info browser.") |
| 427 | 432 |
| 1943 (defun Info-maybe-follow-clicked-node (event &optional click-count) | 1948 (defun Info-maybe-follow-clicked-node (event &optional click-count) |
| 1944 "Follow a node reference (if any) near clicked point. | 1949 "Follow a node reference (if any) near clicked point. |
| 1945 Like M, F, N, P or U command. At end of the node's text, moves to the | 1950 Like M, F, N, P or U command. At end of the node's text, moves to the |
| 1946 next node. No error is given if there is no node to follow." | 1951 next node. No error is given if there is no node to follow." |
| 1947 (interactive "@e") | 1952 (interactive "@e") |
| 1948 (and (event-point event) | 1953 (and Info-button1-follows-hyperlink |
| 1954 (event-point event) | |
| 1949 (Info-follow-nearest-node | 1955 (Info-follow-nearest-node |
| 1950 (max (progn | 1956 (max (progn |
| 1951 (select-window (event-window event)) | 1957 (select-window (event-window event)) |
| 1952 (event-point event)) | 1958 (event-point event)) |
| 1953 (1+ (point-min)))))) | 1959 (1+ (point-min)))))) |