Yuta Yamada
null+****@clear*****
Mon Sep 10 19:38:18 JST 2012
Yuta Yamada 2012-09-10 19:38:18 +0900 (Mon, 10 Sep 2012) New Revision: 1104d9f0946de3e11b9d190b5b0e342a36abea67 https://github.com/logaling/logalimacs/commit/1104d9f0946de3e11b9d190b5b0e342a36abea67 Log: Use `format' function instead of `concat' Modified files: logalimacs.el Modified: logalimacs.el (+5 -3) =================================================================== --- logalimacs.el 2012-09-10 19:34:14 +0900 (6aed3a1) +++ logalimacs.el 2012-09-10 19:38:18 +0900 (9dbd195) @@ -316,7 +316,7 @@ Example: (defun loga-produce-contents (search-word word-and-options) (lexical-let ((terminal-output - (loga-to-shell "\\loga" (concat "lookup " word-and-options)))) + (loga-to-shell "\\loga" (format "lookup %s" word-and-options)))) (loga-register-output (cons search-word terminal-output)) terminal-output)) @@ -388,8 +388,10 @@ Example: (defun loga-lookup (endpoint &optional prototype-of-search-word) (setq loga-current-endpoint endpoint) (let* ((loga-current-command :lookup) - (source-word (or prototype-of-search-word (loga-decide-source-word))) - (terminal-output (loga-command (concat "\"" source-word "\"")))) + (source-word + (format "\"%s\"" + (or prototype-of-search-word (loga-decide-source-word)))) + (terminal-output (loga-command source-word))) (save-excursion (if (string< "" terminal-output) (case endpoint -------------- next part -------------- An HTML attachment was scrubbed...Télécharger
