Mercurial > emacs

changeset 29592:9d10c14d8199

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(toplevel symbol-properties): Don't quote lambda.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 12 Jun 2000 05:29:56 +0000
parents b70f4500968f
children f1e8c1d079fd
files lisp/thingatpt.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/thingatpt.el	Mon Jun 12 05:28:02 2000 +0000
+++ b/lisp/thingatpt.el	Mon Jun 12 05:29:56 2000 +0000
@@ -199,9 +199,9 @@
   "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 @@
 
 ;;  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