mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00
Code Issues Releases Activity

(info-xref-visited): Use `default' instead of t.

Browse Source 
(Info-try-follow-nearest-node): Don't explicitly load browse-url.
This commit is contained in:
Richard M. Stallman 2004-12-13 19:31:32 +00:00
parent cf459bb738
commit 6b3600ffb8
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/info.el
View File

@ -86,7 +86,7 @@ The Lisp code is executed when the node is selected.")
:group 'info)
(defface info-xref-visited
'((t :inherit info-xref)
'((default :inherit info-xref)
(((class color) (background light)) :foreground "magenta4")
(((class color) (background dark)) :foreground "magenta3")) ;"violet"?
"Face for visited Info cross-references."
@ -2834,8 +2834,7 @@ if point is in a menu item description, follow that menu item."
"Follow a node reference near point. Return non-nil if successful."
(let (node)
(cond
((and (Info-get-token (point) "[hf]t?tp://" "[hf]t?tp://\\([^ \t\n\"`({<>})']+\\)")
(or (featurep 'browse-url) (require 'browse-url nil t)))
((Info-get-token (point) "[hf]t?tp://" "[hf]t?tp://\\([^ \t\n\"`({<>})']+\\)")
(setq node t)
(browse-url (browse-url-url-at-point)))
((setq node (Info-get-token (point) "\\*note[ \n\t]+"