From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 29 Aug 1996 04:42:40 +0000 (+0000)
Subject: (narrow-to-defun): New function.
X-Git-Tag: emacs-20.1~3973
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3f7e952d9a2c795595d1de392a42e527a31c4872;p=emacs.git

(narrow-to-defun): New function.
---

diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 650c0aa31fc..a62fe926e8b 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -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.