emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

minor fix to backward-list


From: Emanuele Giaquinta
Subject: minor fix to backward-list
Date: Fri, 23 Sep 2005 14:24:42 +0200

The patch below removes an unneeded call to setq.

Index: lisp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/lisp.el,v
retrieving revision 1.68
diff -u -r1.68 lisp.el
--- lisp.el     6 Aug 2005 17:08:59 -0000       1.68
+++ lisp.el     23 Sep 2005 11:32:08 -0000
@@ -106,8 +106,7 @@
 With ARG, do it that many times.
 Negative arg -N means move forward across N groups of parentheses."
   (interactive "p")
-  (or arg (setq arg 1))
-  (forward-list (- arg)))
+  (forward-list (- (or arg 1))))

 (defun down-list (&optional arg)
   "Move forward down one level of parentheses.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]