null+****@clear*****
null+****@clear*****
Fri Jun 8 15:02:31 JST 2012
yuta yamada 2012-06-08 15:02:31 +0900 (Fri, 08 Jun 2012)
New Revision: 9e33cb4607236365880ffe5446731aa3daffb695
Log:
modify type of the output-type (:xxx -> symbol)
Modified files:
logalimacs.el
Modified: logalimacs.el (+8 -5)
===================================================================
--- logalimacs.el 2012-06-08 14:50:56 +0900 (f8b747c)
+++ logalimacs.el 2012-06-08 15:02:31 +0900 (56270da)
@@ -45,7 +45,10 @@
;;for ansi-color
(require 'ansi-color)
-(defvar loga-popup-output-type :auto)
+(defcustom loga-popup-output-type 'auto
+ "assign 'auto or 'max, available modifying of popup width"
+ :group 'logalimacs
+ :type 'symbol)
(defcustom loga-log-output nil
"if nonnil, output log for developer."
@@ -438,10 +441,10 @@
(defun loga-setup-point-and-width ()
(case loga-popup-output-type
- (:auto (setq loga-popup-width (loga-compute-width)
- loga-popup-point (loga-compute-point)))
- (:max (setq loga-popup-width (window-width)
- loga-popup-point (point-at-bol)))))
+ ((or 'auto :auto) (setq loga-popup-width (loga-compute-width)
+ loga-popup-point (loga-compute-point)))
+ ((or 'max :max) (setq loga-popup-width (window-width)
+ loga-popup-point (point-at-bol)))))
(defun loga-compute-width ()
(loop for (source-length . target-length) in (list loga-current-max-length)