procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(narrow-to-defun): New function.

Browse source
This commit is contained in:
Richard M. Stallman 1996-08-29 04:42:40 +00:00
parent 484de1186a
commit 3f7e952d9a
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -209,6 +209,15 @@ The defun marked is the one that contains point or follows point."
(beginning-of-defun)
(re-search-backward "^\n" (- (point) 1) t))
(defun narrow-to-defun (&optional arg)
"Make text outside current defun invisible.
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)))))
(defun insert-parentheses (arg)
"Put parentheses around next ARG sexps. Leave point after open-paren.
No argument is equivalent to zero: just insert `()' and leave point between.