null+****@clear*****
null+****@clear*****
Mon Jul 2 15:22:19 JST 2012
yuta yamada 2012-07-02 15:22:19 +0900 (Mon, 02 Jul 2012) New Revision: 9d94ef170fd29192c3bed5dcb58d1ff347eaf213 https://github.com/logaling/logalimacs/commit/9d94ef170fd29192c3bed5dcb58d1ff347eaf213 Log: Read source-word only when the separator is avoided Modified files: logalimacs.el Modified: logalimacs.el (+4 -3) =================================================================== --- logalimacs.el 2012-07-02 14:48:48 +0900 (04dd0b1) +++ logalimacs.el 2012-07-02 15:22:19 +0900 (dfb608f) @@ -299,7 +299,8 @@ Example: (let* ((separator loga-mark-rigion-separator) (separate-regexp (concat "^\\(.*\\)" separator "\\(.*\\)"))) (string-match separate-regexp marked-words) - (setq loga-marked-words (cons (match-string 1 marked-words) + (setq loga-marked-words (cons (or (match-string 1 marked-words) + marked-words) (match-string 2 marked-words))))) (defun loga-attach-lang-option-for-ja/en (word) @@ -413,8 +414,8 @@ Because it escape character" (initial-target (cdr loga-marked-words))) (case loga-current-command ((:add :update) - (when (and initial-source - initial-target) + (when (or initial-source + initial-target) (cond ((string-match "source.+" message) initial-source) ((string-match "target.+" message) -------------- next part -------------- An HTML attachment was scrubbed...다운로드
