Don't forget to set-buffer when visully switching indirect-buffers

Author: vspinu

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

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