mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

* info.el (Info-try-follow-nearest-node): Use the URL extracted by

Browse Source 
`Info-get-token', instead of `browse-url-url-at-point'.  (Bug#4508)
This commit is contained in:
Juanma Barranquero 2009-09-22 08:44:16 +00:00
parent daedbbc2a9
commit baa7f3de13
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2009-09-22 Juanma Barranquero <lekktu@gmail.com>
* info.el (Info-try-follow-nearest-node): Use the URL extracted by
`Info-get-token', instead of `browse-url-url-at-point'. (Bug#4508)
2009-09-22 Glenn Morris <rgm@gnu.org>
* calendar/calendar.el (calendar-mode-map): Make mouse-1 and 3 clicks on

9
lisp/info.el
View File

@ -1,4 +1,4 @@
;;; info.el --- info package for Emacs
;; info.el --- info package for Emacs
;; Copyright (C) 1985, 1986, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
@ -3518,9 +3518,10 @@ If FORK is a string, it is the name to use for the new buffer."
If FORK is non-nil, it is passed to `Info-goto-node'."
(let (node)
(cond
((Info-get-token (point) "[hf]t?tps?://" "[hf]t?tps?://\\([^ \t\n\"`({<>})']+\\)")
(setq node t)
(browse-url (browse-url-url-at-point)))
((setq node (Info-get-token (point) "[hf]t?tps?://"
"\\([hf]t?tps?://[^ \t\n\"`({<>})']+\\)"))
(browse-url node)
(setq node t))
((setq node (Info-get-token (point) "\\*note[ \n\t]+"
"\\*note[ \n\t]+\\([^:]*\\):\\(:\\|[ \n\t]*(\\)?"))
(Info-follow-reference node fork))