awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Remove narf:widen (narf:narrow now toggles)

Browse Source
This commit is contained in:
Henrik Lissner
2015-12-09 02:00:15 -05:00
parent 32112605fa
commit bbe9d70f5f
1 changed files with 7 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
core/lib/defuns-buffers.el
View File

@ -9,25 +9,13 @@ mark isn't active, then widen the buffer (if narrowed).
Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/" Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/"
(interactive "<r><!>") (interactive "<r><!>")
(if (region-active-p) (if (region-active-p)
(if bang
(progn (progn
(deactivate-mark) (deactivate-mark)
(let ((buf (clone-indirect-buffer nil nil))) (let ((buf (clone-indirect-buffer nil nil)))
(with-current-buffer buf (with-current-buffer buf
(narrow-to-region start end)) (narrow-to-region start end))
(switch-to-buffer buf))) (switch-to-buffer buf)))
(fancy-narrow-to-region beg end)) (widen)))
(narf:widen)))
;;;###autoload
(defun narf:widen ()
"Widen a buffer that has been narrowed with `narrow-to-region' or
`fancy-narrow-to-region'"
(interactive)
(when (buffer-narrowed-p)
(widen))
(when (and (featurep 'fancy-narrow) fancy-narrow--beginning fancy-narrow--end)
(fancy-widen)))
;;;###autoload ;;;###autoload
(defun narf/set-read-only-region (begin end) (defun narf/set-read-only-region (begin end)