# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 660798172 0
# Node ID 2f5b3f50773d13ecacf02d2425145f2f8d5ec7b1
# Parent  0cbdae7c532f470257b0bc1d3a0f56bf32034647
*** empty log message ***

diff -r 0cbdae7c532f -r 2f5b3f50773d lisp/emacs-lisp/lisp.el
--- 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."