null+****@clear*****
null+****@clear*****
Mon Jul 2 14:37:11 JST 2012
yuta yamada 2012-07-02 14:37:11 +0900 (Mon, 02 Jul 2012) New Revision: 72c92eb1347715bcbf7b53151921c9fee8844d52 https://github.com/logaling/logalimacs/commit/72c92eb1347715bcbf7b53151921c9fee8844d52 Log: Move function when the mark was acrived to other function Modified files: logalimacs.el Modified: logalimacs.el (+5 -1) =================================================================== --- logalimacs.el 2012-07-02 11:56:46 +0900 (4f11e46) +++ logalimacs.el 2012-07-02 14:37:11 +0900 (81a474c) @@ -277,11 +277,15 @@ Example: (defun loga-decide-source-word () (if mark-active - (buffer-substring-no-properties (region-beginning) (region-end)) + (loga-return-marked-region) (if current-prefix-arg (loga-input) (loga-return-word-on-cursor)))) +(defun loga-return-marked-region () + (let ((marked-region + (buffer-substring-no-properties (region-beginning) (region-end)))) + marked-region)) (defun loga-attach-lang-option-for-ja/en (word) (cond ((string-match "[ぁ-んァ-ン上-黑]" word) -------------- next part -------------- An HTML attachment was scrubbed...Download
