Mercurial > emacs
changeset 3758:e212a0863773
(parens-require-spaces): Var renamed and sense changed.
(insert-parentheses): Corresponding changes.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 16 Jun 1993 19:34:11 +0000 |
| parents | 02c40620b4de |
| children | 036367460955 |
| files | lisp/emacs-lisp/lisp.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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 " "))))