mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(narrow-to-defun): Narrow to the same defun that `mark-defun' would make

Browse Source 
the region.
(insert-parentheses): Let a negative argument enclose preceding sexps.
This commit is contained in:
Erik Naggum 1996-10-08 23:13:39 +00:00
parent dc81e1664f
commit e3ac26cbb8
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -215,18 +215,22 @@ The defun visible is the one that contains point or follows point."
(interactive)
(save-excursion
(widen)
(beginning-of-defun)
(narrow-to-region (point) (progn (end-of-defun) (point)))))
(end-of-defun)
(let ((end (point)))
(beginning-of-defun)
(narrow-to-region (point) end))))
(defun insert-parentheses (arg)
"Put parentheses around next ARG sexps. Leave point after open-paren.
"Enclose following ARG sexps in parentheses. Leave point after open-paren.
A negative ARG encloses the preceding ARG sexps instead.
No argument is equivalent to zero: just insert `()' and leave point between.
If `parens-require-spaces' is non-nil, this command also inserts a space
before and after, depending on the surrounding characters."
(interactive "P")
(if arg (setq arg (prefix-numeric-value arg))
(setq arg 0))
(or (eq arg 0) (skip-chars-forward " \t"))
(cond ((> arg 0) (skip-chars-forward " \t"))
((< arg 0) (forward-sexp arg) (setq arg (- arg))))
(and parens-require-spaces
(not (bobp))
(memq (char-syntax (preceding-char)) '(?w ?_ ?\) ))