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

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

and beginning-op lambdas with `function', not quote.
parent cf09633a
...@@ -299,16 +299,18 @@ point." ...@@ -299,16 +299,18 @@ point."
(goto-char match) (goto-char match)
(looking-at regexp))))) (looking-at regexp)))))
;; Can't do it sensibly? (put 'url 'end-op
;(put 'url 'end-op (function (lambda ()
; '(lambda () (skip-chars-forward (concat ":" thing-at-point-url-chars)) (let ((bounds (thing-at-point-bounds-of-url-at-point)))
; (skip-chars-backward ".,:"))) (if bounds
(goto-char (cdr bounds))
(error "No URL here"))))))
(put 'url 'beginning-op (put 'url 'beginning-op
'(lambda () (function (lambda ()
(let ((bounds (thing-at-point-bounds-of-url-at-point))) (let ((bounds (thing-at-point-bounds-of-url-at-point)))
(if bounds (if bounds
(goto-char (car bounds)) (goto-char (car bounds))
(error "No URL here"))))) (error "No URL here"))))))
;; Whitespace ;; 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