aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/thingatpt.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 99463d371d7..da51774958c 100644
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -199,9 +199,9 @@ a symbol as a valid THING."
199 "Characters allowable in filenames.") 199 "Characters allowable in filenames.")
200 200
201(put 'filename 'end-op 201(put 'filename 'end-op
202 '(lambda () (skip-chars-forward thing-at-point-file-name-chars))) 202 (lambda () (skip-chars-forward thing-at-point-file-name-chars)))
203(put 'filename 'beginning-op 203(put 'filename 'beginning-op
204 '(lambda () (skip-chars-backward thing-at-point-file-name-chars))) 204 (lambda () (skip-chars-backward thing-at-point-file-name-chars)))
205 205
206(defvar thing-at-point-url-path-regexp 206(defvar thing-at-point-url-path-regexp
207 "[^]\t\n \"'()<>[^`{}]*[^]\t\n \"'()<>[^`{}.,;]+" 207 "[^]\t\n \"'()<>[^`{}]*[^]\t\n \"'()<>[^`{}.,;]+"
@@ -336,8 +336,8 @@ point."
336 336
337;; Buffer 337;; Buffer
338 338
339(put 'buffer 'end-op '(lambda () (goto-char (point-max)))) 339(put 'buffer 'end-op (lambda () (goto-char (point-max))))
340(put 'buffer 'beginning-op '(lambda () (goto-char (point-min)))) 340(put 'buffer 'beginning-op (lambda () (goto-char (point-min))))
341 341
342;; Symbols 342;; Symbols
343 343