# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 960787796 0
# Node ID 9d10c14d8199a257f995d3116ff3256320aedca8
# Parent  b70f4500968f804b54b8712239bf20e45bf70081
(toplevel symbol-properties): Don't quote lambda.

diff -r b70f4500968f -r 9d10c14d8199 lisp/thingatpt.el
--- 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