Mercurial > emacs

changeset 133:2f5b3f50773d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Mon, 10 Dec 1990 03:02:52 +0000
parents 0cbdae7c532f
children 93491679e7e9
files lisp/emacs-lisp/lisp.el
diffstat 1 files changed, 6 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp.el	Wed Dec 05 18:47:42 1990 +0000
+++ b/lisp/emacs-lisp/lisp.el	Mon Dec 10 03:02:52 1990 +0000
@@ -187,21 +187,17 @@
   "Put parentheses around next ARG sexps.  Leave point after open-paren.
 No argument is equivalent to zero: just insert () and leave point between."
   (interactive "P")
-  (if arg (skip-chars-forward " \t"))
+  (if arg (setq arg (prefix-numeric-value arg))
+    (setq arg 0))
+  (or (eq arg 0) (skip-chars-forward " \t"))
   (and (memq (char-syntax (preceding-char)) '(?w ?_ ?\) ))
        (insert " "))
-;    (or (memq (char-syntax (preceding-char)) '(?\  ?> ?\( ))
-;	(insert " ")))
   (insert ?\()
   (save-excursion
-    (if arg
-	(forward-sexp (prefix-numeric-value arg)))
+    (or (eq arg 0) (forward-sexp arg))
     (insert ?\))
-;    (or (memq (char-syntax (following-char)) '(?\  ?> ?\( ))
-;	(insert " "))
-  (and (memq (char-syntax (following-char)) '(?w ?_ ?\( ))
-       (insert " "))
-  ))
+    (and (memq (char-syntax (following-char)) '(?w ?_ ?\( ))
+	 (insert " "))))
 
 (defun move-past-close-and-reindent ()
   "Move past next `)', delete indentation before it, then indent after it."