mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit 0adf87e8922282f51b82b2e628f7c3212965d903 Author: Matthew L. Fidler <[email protected]> Date: Fri Jun 27 10:04:21 2014 -0500 Modify copy-line-or-region to work with `org-mode` --- ergoemacs-functions.el | 12 +++++++++++- 1 files changed, 11 insertions(+), 1 deletions(-) diff --git a/ergoemacs-functions.el b/ergoemacs-functions.el index e0c8c39..a3d6968 100644 --- a/ergoemacs-functions.el +++ b/ergoemacs-functions.el @@ -315,7 +315,17 @@ If `narrow-to-region' is in effect, then cut that region only." ((region-active-p) (kill-ring-save (region-beginning) (region-end))) (t - (kill-ring-save (line-beginning-position) (line-beginning-position 2)))) + ;; Hack away to support `org-mode' folded reg + (kill-ring-save + (save-excursion + (ergoemacs-shortcut-remap 'move-beginning-of-line) + (when (not (bolp)) + (beginning-of-line)) + (point)) + (save-excursion + (ergoemacs-shortcut-remap 'move-end-of-line) + (call-interactively 'move-end-of-line) + (point))))) (deactivate-mark)) (declare-function cua-cut-region "cua-base.el")
