null+****@clear*****
null+****@clear*****
Fri Jun 29 22:26:43 JST 2012
yuta yamada 2012-06-29 22:26:43 +0900 (Fri, 29 Jun 2012) New Revision: 373444b1cf4f16688f959a041b577e717adb1849 https://github.com/logaling/logalimacs/commit/373444b1cf4f16688f959a041b577e717adb1849 Log: Use backquotes instead of the list Modified files: logalimacs.el Modified: logalimacs.el (+4 -4) =================================================================== --- logalimacs.el 2012-06-29 21:44:04 +0900 (3b549cc) +++ logalimacs.el 2012-06-29 22:26:43 +0900 (25ea3f9) @@ -363,8 +363,8 @@ (defun loga-append-margin (source target note max-length) (let* ((margin (- (car max-length) (loga-compute-length source))) (column (concat source (spaces-string margin) ":" target))) - (if note (setq column (list column (concat "\n" note))) - (list column)))) + (if note (setq column `(,column ,(concat "\n" note))) + `(,column)))) (defun loga-query (&optional message) (let* ((input (read-string (or message "types here:")))) @@ -386,7 +386,7 @@ (:update (setq messages '("source: " "target(old): " "target(new): " "note(optional): "))) (:lookup (setq messages '("search: "))) - (t (setq messages (list messages)))) + (t (setq messages `(,messages)))) (loop with response for message in messages collect (loga-query message) into response @@ -484,7 +484,7 @@ loga-popup-point (point-at-bol))))) (defun loga-compute-width () - (loop for (source-length . target-length) in (list loga-current-max-length) + (loop for (source-length . target-length) in `(,loga-current-max-length) with sum = 0 collect (+ source-length target-length) into sum finally return (min (+ (car sum) 1) (window-width)))) -------------- next part -------------- An HTML attachment was scrubbed...Télécharger
