mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00
Code Issues Projects Releases Wiki Activity

(parens-require-spaces): Var renamed and sense changed.

Browse source 
(insert-parentheses): Corresponding changes.
This commit is contained in:
Richard M. Stallman 1993-06-16 19:34:11 +00:00
parent 5bd65b3b64
commit 78e367e9ae
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/lisp.el
View file

@ -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 " "))))