[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/lisp.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/03/03 16:12:06

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: lisp.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15425&r2=1.15426
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/lisp.el?cvsroot=emacs&r1=1.100&r2=1.101

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15425
retrieving revision 1.15426
diff -u -b -r1.15425 -r1.15426
--- ChangeLog   3 Mar 2009 08:13:56 -0000       1.15425
+++ ChangeLog   3 Mar 2009 16:12:02 -0000       1.15426
@@ -1,3 +1,8 @@
+2009-03-03  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/lisp.el (end-of-defun-function): Make it more clear that
+       the function takes no argument.
+
 2009-03-03  Glenn Morris  <address@hidden>
 
        * mail/rmail.el (rmail-highlighted-headers, rmail-highlight)
@@ -451,7 +456,7 @@
 
 2009-02-17  Miles Bader  <address@hidden>
 
-       * 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  <address@hidden>
@@ -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  <address@hidden>
 
-       * 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  <address@hidden>
 
@@ -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.

Index: emacs-lisp/lisp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/lisp.el,v
retrieving revision 1.100
retrieving revision 1.101
diff -u -b -r1.100 -r1.101
--- emacs-lisp/lisp.el  19 Feb 2009 17:31:51 -0000      1.100
+++ emacs-lisp/lisp.el  3 Mar 2009 16:12:06 -0000       1.101
@@ -313,7 +313,8 @@
             (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'.