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

2
core/autoload/buffers.el
View file

@ -1,7 +1,5 @@
;;; core/autoload/buffers.el -*- lexical-binding: t; -*- ;;; core/autoload/buffers.el -*- lexical-binding: t; -*-
(defvar-local doom-buffer--narrowed-origin nil)
;;;###autoload ;;;###autoload
(defvar doom-real-buffer-functions '() (defvar doom-real-buffer-functions '()
"A list of predicate functions run to determine if a buffer is real. These "A list of predicate functions run to determine if a buffer is real. These

9
core/autoload/editor.el
View file

@ -218,6 +218,7 @@ consistent throughout a selected region, depending on `indent-tab-mode'."
(tabify beg end) (tabify beg end)
(untabify beg end))) (untabify beg end)))
(defvar-local doom--buffer-narrowed-origin nil)
;;;###autoload ;;;###autoload
(defun doom/narrow-buffer (beg end &optional clone-p) (defun doom/narrow-buffer (beg end &optional clone-p)
"Restrict editing in this buffer to the current region, indirectly. With 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 (when clone-p
(let ((old-buf (current-buffer))) (let ((old-buf (current-buffer)))
(switch-to-buffer (clone-indirect-buffer nil nil)) (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)) (narrow-to-region beg end))
(doom-buffer--narrowed-origin (doom--buffer-narrowed-origin
(kill-this-buffer) (kill-this-buffer)
(switch-to-buffer doom-buffer--narrowed-origin) (switch-to-buffer doom--buffer-narrowed-origin)
(setq doom-buffer--narrowed-origin nil)) (setq doom--buffer-narrowed-origin nil))
(t (t
(widen)))) (widen))))