Commit a1c9b4d0 authored by Richard M. Stallman's avatar Richard M. Stallman

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

and beginning-op lambdas with `function', not quote.
parent cf09633a
......@@ -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
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment