# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 740259251 0
# Node ID e212a08637733078eb340a11c8488b8af2d494aa
# Parent  02c40620b4de97e373d472ce4ade707962e66ef4
(parens-require-spaces): Var renamed and sense changed.
(insert-parentheses): Corresponding changes.

diff -r 02c40620b4de -r e212a0863773 lisp/emacs-lisp/lisp.el
--- a/lisp/emacs-lisp/lisp.el	Wed Jun 16 19:24:34 1993 +0000
+++ b/lisp/emacs-lisp/lisp.el	Wed Jun 16 19:34:11 1993 +0000
@@ -30,8 +30,8 @@
 (defvar defun-prompt-regexp nil
   "Non-nil => regexp to ignore, before the `(' that starts a defun.")
 
-(defvar parens-dont-require-spaces nil
-  "Non-nil => `insert-parentheses' should not insert whitespace.")
+(defvar parens-require-spaces t
+  "Non-nil => `insert-parentheses' should insert whitespace as needed.")
 
 (defun forward-sexp (&optional arg)
   "Move forward across one balanced expression (sexp).
@@ -205,14 +205,14 @@
   (if arg (setq arg (prefix-numeric-value arg))
     (setq arg 0))
   (or (eq arg 0) (skip-chars-forward " \t"))
-  (and (not parens-dont-require-spaces)
+  (and parens-require-spaces
        (memq (char-syntax (preceding-char)) '(?w ?_ ?\) ))
        (insert " "))
   (insert ?\()
   (save-excursion
     (or (eq arg 0) (forward-sexp arg))
     (insert ?\))
-    (and (not parens-dont-require-spaces)
+    (and parens-require-spaces
 	 (memq (char-syntax (following-char)) '(?w ?_ ?\( ))
 	 (insert " "))))