diff options
| -rw-r--r-- | lisp/thingatpt.el | 8 |
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 | ||