mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Richard M. Stallman 1990-12-10 03:02:52 +00:00
parent 29975121ed
commit a17f9e55b2
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/emacs-lisp/lisp.el
View File

@ -187,21 +187,17 @@ The defun marked is the one that contains point or follows point."
"Put parentheses around next ARG sexps. Leave point after open-paren.
No argument is equivalent to zero: just insert () and leave point between."
(interactive "P")
(if arg (skip-chars-forward " \t"))
(if arg (setq arg (prefix-numeric-value arg))
(setq arg 0))
(or (eq arg 0) (skip-chars-forward " \t"))
(and (memq (char-syntax (preceding-char)) '(?w ?_ ?\) ))
(insert " "))
; (or (memq (char-syntax (preceding-char)) '(?\ ?> ?\( ))
; (insert " ")))
(insert ?\()
(save-excursion
(if arg
(forward-sexp (prefix-numeric-value arg)))
(or (eq arg 0) (forward-sexp arg))
(insert ?\))
; (or (memq (char-syntax (following-char)) '(?\ ?> ?\( ))
; (insert " "))
(and (memq (char-syntax (following-char)) '(?w ?_ ?\( ))
(insert " "))
))
(and (memq (char-syntax (following-char)) '(?w ?_ ?\( ))
(insert " "))))
(defun move-past-close-and-reindent ()
"Move past next `)', delete indentation before it, then indent after it."