From 78e367e9aebaf66cb2addfa1cb9487c647215a89 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 16 Jun 1993 19:34:11 +0000 Subject: (parens-require-spaces): Var renamed and sense changed. (insert-parentheses): Corresponding changes. --- lisp/emacs-lisp/lisp.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lisp/emacs-lisp/lisp.el') diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index 57e397df663..12da5f2adb5 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el @@ -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 @@ depending on the surrounding characters." (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 " ")))) -- cgit v1.2.3