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

Fix previous change.

Browse Source
This commit is contained in:
Richard M. Stallman 1996-12-11 21:06:53 +00:00
parent 0f995be681
commit 31c8acc065
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/browse-url.el
View File

@ -371,7 +371,7 @@ Search backwards for the start of a URL ending at or after
point. If no URL found, return the empty string.
A file name is also acceptable, and `http://' will be prepended to it."
(or (thing-at-point 'url)
(let ((file (thing-at-point 'file)))
(let ((file (thing-at-point 'filename)))
(if file (concat "http://" file)))
""))