Mercurial > emacs

comparison lisp/browse-url.el @ 16670:37fa6003964d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Wed, 11 Dec 1996 21:06:53 +0000
parents 0bd213d55f05
children 02751f3ecbdd
comparison
equal deleted inserted replaced
16669:0bd213d55f05 16670:37fa6003964d
369 "Return the URL around or before point. 369 "Return the URL around or before point.
370 Search backwards for the start of a URL ending at or after 370 Search backwards for the start of a URL ending at or after
371 point. If no URL found, return the empty string. 371 point. If no URL found, return the empty string.
372 A file name is also acceptable, and `http://' will be prepended to it." 372 A file name is also acceptable, and `http://' will be prepended to it."
373 (or (thing-at-point 'url) 373 (or (thing-at-point 'url)
374 (let ((file (thing-at-point 'file))) 374 (let ((file (thing-at-point 'filename)))
375 (if file (concat "http://" file))) 375 (if file (concat "http://" file)))
376 "")) 376 ""))
377 377
378 ;; Having this as a separate function called by the browser-specific 378 ;; Having this as a separate function called by the browser-specific
379 ;; functions allows them to be stand-alone commands, making it easier 379 ;; functions allows them to be stand-alone commands, making it easier