From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 12 Jun 2000 05:29:56 +0000 (+0000)
Subject: (toplevel symbol-properties): Don't quote lambda.
X-Git-Tag: emacs-pretest-21.0.90~3372
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=206eef6cf4ce56b6ffa08daa5e5c08dec231ace7;p=emacs.git

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

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