martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(toplevel symbol-properties): Don't quote lambda.

Browse Source
This commit is contained in:
Stefan Monnier
2000-06-12 05:29:56 +00:00
parent b94deab8d5
commit 206eef6cf4
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/thingatpt.el
View File

@@ -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