Mercurial > emacs
comparison lisp/emacs-lisp/lisp.el @ 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 | c1c105ffdd0c |
| children | 1f201e9b48ff |
comparison
equal
deleted
inserted
replaced
| 3757:02c40620b4de | 3758:e212a0863773 |
|---|---|
| 28 ;;; Code: | 28 ;;; Code: |
| 29 | 29 |
| 30 (defvar defun-prompt-regexp nil | 30 (defvar defun-prompt-regexp nil |
| 31 "Non-nil => regexp to ignore, before the `(' that starts a defun.") | 31 "Non-nil => regexp to ignore, before the `(' that starts a defun.") |
| 32 | 32 |
| 33 (defvar parens-dont-require-spaces nil | 33 (defvar parens-require-spaces t |
| 34 "Non-nil => `insert-parentheses' should not insert whitespace.") | 34 "Non-nil => `insert-parentheses' should insert whitespace as needed.") |
| 35 | 35 |
| 36 (defun forward-sexp (&optional arg) | 36 (defun forward-sexp (&optional arg) |
| 37 "Move forward across one balanced expression (sexp). | 37 "Move forward across one balanced expression (sexp). |
| 38 With argument, do it that many times. Negative arg -N means | 38 With argument, do it that many times. Negative arg -N means |
| 39 move backward across N balanced expressions." | 39 move backward across N balanced expressions." |
| 203 depending on the surrounding characters." | 203 depending on the surrounding characters." |
| 204 (interactive "P") | 204 (interactive "P") |
| 205 (if arg (setq arg (prefix-numeric-value arg)) | 205 (if arg (setq arg (prefix-numeric-value arg)) |
| 206 (setq arg 0)) | 206 (setq arg 0)) |
| 207 (or (eq arg 0) (skip-chars-forward " \t")) | 207 (or (eq arg 0) (skip-chars-forward " \t")) |
| 208 (and (not parens-dont-require-spaces) | 208 (and parens-require-spaces |
| 209 (memq (char-syntax (preceding-char)) '(?w ?_ ?\) )) | 209 (memq (char-syntax (preceding-char)) '(?w ?_ ?\) )) |
| 210 (insert " ")) | 210 (insert " ")) |
| 211 (insert ?\() | 211 (insert ?\() |
| 212 (save-excursion | 212 (save-excursion |
| 213 (or (eq arg 0) (forward-sexp arg)) | 213 (or (eq arg 0) (forward-sexp arg)) |
| 214 (insert ?\)) | 214 (insert ?\)) |
| 215 (and (not parens-dont-require-spaces) | 215 (and parens-require-spaces |
| 216 (memq (char-syntax (following-char)) '(?w ?_ ?\( )) | 216 (memq (char-syntax (following-char)) '(?w ?_ ?\( )) |
| 217 (insert " ")))) | 217 (insert " ")))) |
| 218 | 218 |
| 219 (defun move-past-close-and-reindent () | 219 (defun move-past-close-and-reindent () |
| 220 "Move past next `)', delete indentation before it, then indent after it." | 220 "Move past next `)', delete indentation before it, then indent after it." |