diff options
| author | Richard M. Stallman | 1994-09-22 06:42:30 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-09-22 06:42:30 +0000 |
| commit | 6696af6580eea3a04f6459758b78817ee0f9d216 (patch) | |
| tree | 43bd3665530cb708aa56cf91aac1b2931e1cc855 | |
| parent | 973e88732100a0b474a36459e6079325517044ca (diff) | |
| download | emacs-6696af6580eea3a04f6459758b78817ee0f9d216.tar.gz emacs-6696af6580eea3a04f6459758b78817ee0f9d216.zip | |
(insert-parentheses): Don't insert spaces at beginning and end of buffer.
| -rw-r--r-- | lisp/emacs-lisp/lisp.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index 07a22698c6e..fd9ae0c078a 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el | |||
| @@ -218,6 +218,7 @@ before and after, depending on the surrounding characters." | |||
| 218 | (setq arg 0)) | 218 | (setq arg 0)) |
| 219 | (or (eq arg 0) (skip-chars-forward " \t")) | 219 | (or (eq arg 0) (skip-chars-forward " \t")) |
| 220 | (and parens-require-spaces | 220 | (and parens-require-spaces |
| 221 | (not (bobp)) | ||
| 221 | (memq (char-syntax (preceding-char)) '(?w ?_ ?\) )) | 222 | (memq (char-syntax (preceding-char)) '(?w ?_ ?\) )) |
| 222 | (insert " ")) | 223 | (insert " ")) |
| 223 | (insert ?\() | 224 | (insert ?\() |
| @@ -225,6 +226,7 @@ before and after, depending on the surrounding characters." | |||
| 225 | (or (eq arg 0) (forward-sexp arg)) | 226 | (or (eq arg 0) (forward-sexp arg)) |
| 226 | (insert ?\)) | 227 | (insert ?\)) |
| 227 | (and parens-require-spaces | 228 | (and parens-require-spaces |
| 229 | (not (eobp)) | ||
| 228 | (memq (char-syntax (following-char)) '(?w ?_ ?\( )) | 230 | (memq (char-syntax (following-char)) '(?w ?_ ?\( )) |
| 229 | (insert " ")))) | 231 | (insert " ")))) |
| 230 | 232 | ||