# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 841293760 0
# Node ID 9e9c14ecf6e144063daa67c04892bb4ddc2fada2
# Parent  d54ae2343dff2c837b664553fa75a1800ce02f6c
(narrow-to-defun): New function.

diff -r d54ae2343dff -r 9e9c14ecf6e1 lisp/emacs-lisp/lisp.el
--- a/lisp/emacs-lisp/lisp.el	Thu Aug 29 04:39:47 1996 +0000
+++ b/lisp/emacs-lisp/lisp.el	Thu Aug 29 04:42:40 1996 +0000
@@ -209,6 +209,15 @@
   (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.