andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(url): Define end-op property again. Wrap end-op

Browse source 
and beginning-op lambdas with `function', not quote.
This commit is contained in:
Richard M. Stallman 1997-07-09 00:04:00 +00:00
parent cf09633a19
commit a1c9b4d080
1 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/thingatpt.el
View file

@ -299,16 +299,18 @@ point."
(goto-char match)
(looking-at regexp)))))
;; Can't do it sensibly?
;(put 'url 'end-op
; '(lambda () (skip-chars-forward (concat ":" thing-at-point-url-chars))
; (skip-chars-backward ".,:")))
(put 'url 'end-op
(function (lambda ()
(let ((bounds (thing-at-point-bounds-of-url-at-point)))
(if bounds
(goto-char (cdr bounds))
(error "No URL here"))))))
(put 'url 'beginning-op
'(lambda ()
(let ((bounds (thing-at-point-bounds-of-url-at-point)))
(if bounds
(goto-char (car bounds))
(error "No URL here")))))
(function (lambda ()
(let ((bounds (thing-at-point-bounds-of-url-at-point)))
(if bounds
(goto-char (car bounds))
(error "No URL here"))))))
;; Whitespace