Mercurial > emacs
comparison lisp/info.el @ 90851:31beec9ee600
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 751-770)
- Update from CVS
- Merge from emacs--rel--22
- Update from CVS: lisp/textmodes/sgml-mode.el: Revert last change.
- Merge from gnus--rel--5.10
* emacs--rel--22 (patch 18-25)
* gnus--rel--5.10 (patch 222-223)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-208
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 24 May 2007 21:31:10 +0000 |
| parents | e6fdae9180d4 c67984592170 |
| children | f55f9811f5d7 |
comparison
equal
deleted
inserted
replaced
| 90850:7d184cd91770 | 90851:31beec9ee600 |
|---|---|
| 286 This is the name that was specified in Info, not the actual file name. | 286 This is the name that was specified in Info, not the actual file name. |
| 287 It doesn't contain directory names or file name extensions added by Info.") | 287 It doesn't contain directory names or file name extensions added by Info.") |
| 288 | 288 |
| 289 (defvar Info-current-subfile nil | 289 (defvar Info-current-subfile nil |
| 290 "Info subfile that is actually in the *info* buffer now. | 290 "Info subfile that is actually in the *info* buffer now. |
| 291 nil if current Info file is not split into subfiles.") | 291 It is nil if current Info file is not split into subfiles.") |
| 292 | 292 |
| 293 (defvar Info-current-node nil | 293 (defvar Info-current-node nil |
| 294 "Name of node that Info is now looking at, or nil.") | 294 "Name of node that Info is now looking at, or nil.") |
| 295 | 295 |
| 296 (defvar Info-tag-table-marker nil | 296 (defvar Info-tag-table-marker nil |
| 4073 'invisible t))) | 4073 'invisible t))) |
| 4074 | 4074 |
| 4075 ;; Fontify http and ftp references | 4075 ;; Fontify http and ftp references |
| 4076 (goto-char (point-min)) | 4076 (goto-char (point-min)) |
| 4077 (when not-fontified-p | 4077 (when not-fontified-p |
| 4078 (while (re-search-forward "[hf]t?tp://[^ \t\n\"`({<>})']+" nil t) | 4078 (while (re-search-forward "\\(https?\\|ftp\\)://[^ \t\n\"`({<>})']+" |
| 4079 nil t) | |
| 4079 (add-text-properties (match-beginning 0) (match-end 0) | 4080 (add-text-properties (match-beginning 0) (match-end 0) |
| 4080 '(font-lock-face info-xref | 4081 '(font-lock-face info-xref |
| 4081 mouse-face highlight | 4082 mouse-face highlight |
| 4082 help-echo "mouse-2: go to this URL")))) | 4083 help-echo "mouse-2: go to this URL")))) |
| 4083 | 4084 |