From 3f7e952d9a2c795595d1de392a42e527a31c4872 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 29 Aug 1996 04:42:40 +0000 Subject: [PATCH] (narrow-to-defun): New function. --- lisp/emacs-lisp/lisp.el | 9 +++++++++ 1 file changed, 9 insertions(+) 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. -- 2.39.2