emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Move misplaced doom--buffer-narrowed-origin to correct place

Browse source
This commit is contained in:
Henrik Lissner 2018-01-03 03:32:19 -05:00
parent edc53706ba
commit 3d5d1b65b3
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
core/autoload/editor.el
View file

@ -218,6 +218,7 @@ consistent throughout a selected region, depending on `indent-tab-mode'."
(tabify beg end)
(untabify beg end)))
(defvar-local doom--buffer-narrowed-origin nil)
;;;###autoload
(defun doom/narrow-buffer (beg end &optional clone-p)
"Restrict editing in this buffer to the current region, indirectly. With CLONE-P,
@ -231,12 +232,12 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/"
(when clone-p
(let ((old-buf (current-buffer)))
(switch-to-buffer (clone-indirect-buffer nil nil))
(setq doom-buffer--narrowed-origin old-buf)))
(setq doom--buffer-narrowed-origin old-buf)))
(narrow-to-region beg end))
(doom-buffer--narrowed-origin
(doom--buffer-narrowed-origin
(kill-this-buffer)
(switch-to-buffer doom-buffer--narrowed-origin)
(setq doom-buffer--narrowed-origin nil))
(switch-to-buffer doom--buffer-narrowed-origin)
(setq doom--buffer-narrowed-origin nil))
(t
(widen))))