diff options
Diffstat (limited to 'lisp/emacs-lisp/lisp.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp.el | 8 |
1 files changed, 4 insertions, 4 deletions
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 " ")))) |