From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 3 Mar 2009 16:12:02 +0000 (+0000)
Subject: (end-of-defun-function): Make it more clear that
X-Git-Tag: emacs-pretest-23.0.92~362
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7bbab3e051d1d5911332ba4314aa2830c8d7af55;p=emacs.git

(end-of-defun-function): Make it more clear that
the function takes no argument.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6e32360325f..eecf3ea0a66 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-03-03  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* emacs-lisp/lisp.el (end-of-defun-function): Make it more clear that
+	the function takes no argument.
+
 2009-03-03  Glenn Morris  <rgm@gnu.org>
 
 	* mail/rmail.el (rmail-highlighted-headers, rmail-highlight)
@@ -451,7 +456,7 @@
 
 2009-02-17  Miles Bader  <miles@gnu.org>
 
-	* emacs-lisp/copyright.el (copyright-regexp): Tweaked to match
+	* emacs-lisp/copyright.el (copyright-regexp): Tweak to match
 	copyright statements where the years follow the name.
 
 2009-02-17  Glenn Morris  <rgm@gnu.org>
@@ -461,8 +466,8 @@
 
 	* mail/rmailout.el (rmail-fields-not-to-output): Doc fix.
 	(rmail-delete-unwanted-fields): Ignore case.  Use line-beg-pos.
-	(rmail-output, rmail-output-as-seen): Change the "from-gnus" argument to
-	"not-rmail", and make it work.  Simplify.
+	(rmail-output, rmail-output-as-seen): Change the "from-gnus" argument
+	to "not-rmail", and make it work.  Simplify.
 	(rmail-mbox-from): New function.
 	(rmail-output-as-mbox): Use rmail-mbox-from.
 	(rmail-output): Ensure a From line in the not-rmail Babyl case.
@@ -472,8 +477,8 @@
 
 2009-02-16  Ulf Jasper  <ulf.jasper@web.de>
 
-	* net/newst-treeview.el (newsticker--treeview-load): Offer
-	deletion of old groups file.
+	* net/newst-treeview.el (newsticker--treeview-load):
+	Offer deletion of old groups file.
 
 2009-02-16  Glenn Morris  <rgm@gnu.org>
 
@@ -488,8 +493,8 @@
 	* mail/rmailsum.el (rmail-summary-output-as-seen): Doc fix.
 
 	* mail/rmailout.el (rmail-output-decode-coding): Fix custom type, group.
-	(rmail-output-as-babyl, rmail-output-to-babyl-buffer): Remove
-	unnecessary use of with-no-warnings.
+	(rmail-output-as-babyl, rmail-output-to-babyl-buffer):
+	Remove unnecessary use of with-no-warnings.
 	(rmail-output-as-mbox, rmail-output-as-seen): Doc fix.
 	(rmail-output-as-mbox): Start search from point-min.  If constructing a
 	"From " line, prefer the date header over the current time.
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index f11c99100a1..6de82b43c3d 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -313,7 +313,8 @@ is called as a function to find the defun's beginning."
 	     (goto-char (if arg-+ve floor ceiling))
 	     nil))))))))
 
-(defvar end-of-defun-function #'forward-sexp
+(defvar end-of-defun-function
+  (lambda () (forward-sexp 1))
   "Function for `end-of-defun' to call.
 This is used to find the end of the defun at point.
 It is called with no argument, right after calling `beginning-of-defun-raw'.