branch: externals/polymode
commit b0828465e66e96531296bf2c5139b394454a3934
Author: Vitalie Spinu <spinu...@gmail.com>
Commit: Vitalie Spinu <spinu...@gmail.com>
Don't forget to set-buffer when visully switching indirect-buffers
---
polymode-core.el | 4 ++--
polymode.el | 5 +++++
2 files changed, 7 insertions(+), 2 deletions(-)
diff --git a/polymode-core.el b/polymode-core.el
index f455aa4c41..fc7a3714ee 100644
--- a/polymode-core.el
+++ b/polymode-core.el
@@ -1123,6 +1123,7 @@ switch."
(let ((dedicated-flag (window-dedicated-p)))
(when dedicated-flag
(set-window-dedicated-p nil nil))
+ (set-buffer new-buffer)
(set-window-buffer nil new-buffer 'keep-margins)
(when dedicated-flag
(set-window-dedicated-p nil dedicated-flag)))
@@ -1138,10 +1139,9 @@ switch."
(setq pm/current t)
- ;; fixme: what is the right way to do this ... activate-mark-hook?
+ (set-mark mkt)
(if (not ractive)
(deactivate-mark)
- (set-mark mkt)
(activate-mark))
(when pm-hide-implementation-buffers
diff --git a/polymode.el b/polymode.el
index 48e23ce927..a72db2e03b 100644
--- a/polymode.el
+++ b/polymode.el
@@ -244,6 +244,11 @@ Return the number of chunks of the same type moved over."
(pm-span-to-range span)
(pm-chunk-range (1- (nth 1 span))))))))
+(defun polymode-kill-ring-save ()
+ "Copy current chunk into the kill-ring."
+ (interactive)
+ )
+
(defun polymode-mark-or-extend-chunk ()
"DWIM command to repeatedly mark chunk or extend region.
When no region is active, mark the current span if in body of a
