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

(browse-url-url-at-point): Use thing-at-point.

Browse Source 
(browse-url-looking-at): Function deleted.
This commit is contained in:
Richard M. Stallman 1996-12-11 21:06:18 +00:00
parent 02807c95d3
commit 0f995be681
1 changed files with 6 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lisp/browse-url.el
View File

@ -368,32 +368,12 @@ enabled. The port number should be set in `browse-url-CCI-port'.")
(defun browse-url-url-at-point ()
"Return the URL around or before point.
Search backwards for the start of a URL ending at or after
point. If no URL found, return the empty string. The
access scheme, `http://' will be prepended if absent."
(cond ((browse-url-looking-at browse-url-regexp)
(buffer-substring (match-beginning 0) (match-end 0)))
;; Access scheme omitted?
((browse-url-looking-at browse-url-short-regexp)
(concat "http://"
(buffer-substring (match-beginning 0) (match-end 0))))
(t ""))) ; No match
(defun browse-url-looking-at (regexp)
"Return non-nil if point is in or just after a match for REGEXP.
Set the match data from the earliest such match in the current line
ending at or after point."
(save-excursion
(let ((old-point (point))
(eol (progn (end-of-line) (point)))
(hit nil))
(beginning-of-line)
(or (and (looking-at regexp)
(>= (match-end 0) old-point))
(progn
(while (and (re-search-forward regexp eol t)
(<= (match-beginning 0) old-point)
(not (setq hit (>= (match-end 0) old-point)))))
hit)))))
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)))
(if file (concat "http://" file)))
""))
;; Having this as a separate function called by the browser-specific
;; functions allows them to be stand-alone commands, making it easier