diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-06-16 19:34:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-06-16 19:34:11 +0000 |
| commit | 78e367e9aebaf66cb2addfa1cb9487c647215a89 (patch) | |
| tree | 730f7add379f7154e9690e1985940d4738c5da19 /lisp/emacs-lisp | |
| parent | 5bd65b3b64557839f85ec70762c561b184618b28 (diff) | |
| download | emacs-78e367e9aebaf66cb2addfa1cb9487c647215a89.tar.gz emacs-78e367e9aebaf66cb2addfa1cb9487c647215a89.tar.bz2 emacs-78e367e9aebaf66cb2addfa1cb9487c647215a89.zip | |
(parens-require-spaces): Var renamed and sense changed.
(insert-parentheses): Corresponding changes.
Diffstat (limited to 'lisp/emacs-lisp')
| -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 " ")))) |