diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-06-12 05:29:56 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-06-12 05:29:56 +0000 |
| commit | 206eef6cf4ce56b6ffa08daa5e5c08dec231ace7 (patch) | |
| tree | 30d99c1f18a83d32c7dd651cb9f61ec1bb95a55d /lisp/thingatpt.el | |
| parent | b94deab8d575232b6658650b7bed0ba62c569494 (diff) | |
| download | emacs-206eef6cf4ce56b6ffa08daa5e5c08dec231ace7.tar.gz | |
(toplevel symbol-properties): Don't quote lambda.
Diffstat (limited to 'lisp/thingatpt.el')
| -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." "Characters allowable in filenames.") (put 'filename 'end-op - '(lambda () (skip-chars-forward thing-at-point-file-name-chars))) + (lambda () (skip-chars-forward thing-at-point-file-name-chars))) (put 'filename 'beginning-op - '(lambda () (skip-chars-backward thing-at-point-file-name-chars))) + (lambda () (skip-chars-backward thing-at-point-file-name-chars))) (defvar thing-at-point-url-path-regexp "[^]\t\n \"'()<>[^`{}]*[^]\t\n \"'()<>[^`{}.,;]+" @@ -336,8 +336,8 @@ point." ;; Buffer -(put 'buffer 'end-op '(lambda () (goto-char (point-max)))) -(put 'buffer 'beginning-op '(lambda () (goto-char (point-min)))) +(put 'buffer 'end-op (lambda () (goto-char (point-max)))) +(put 'buffer 'beginning-op (lambda () (goto-char (point-min)))) ;; Symbols |