Added narrow-to-defun.

Pascal J. Bourguignon [2021-05-07 22:22]
Added narrow-to-defun.
Filename
pjb-sources.el
diff --git a/pjb-sources.el b/pjb-sources.el
index a6eb975..97ce7d6 100644
--- a/pjb-sources.el
+++ b/pjb-sources.el
@@ -3610,6 +3610,13 @@ For example:   '((\"^/Applications/Emacs.app/Contents/Resources/\" . 8)
      ;; Add line header:
      (replace-regexp "^" " * " nil (point) (- end 1)))))

+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defun narrow-to-defun ()
+  (interactive)
+  (save-excursion
+   (mark-defun)
+   (narrow-to-region (point) (mark))))

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (provide 'pjb-sources)
ViewGit