null+****@clear*****
null+****@clear*****
Tue Jun 5 16:54:07 JST 2012
yuta yamada 2012-06-05 16:54:07 +0900 (Tue, 05 Jun 2012)
New Revision: 4621cff6e2bcc5b278a5703a6011e43225bc2b3e
Log:
attach :width type to loga-setup-point-and-width function
Modified files:
logalimacs.el
Modified: logalimacs.el (+3 -1)
===================================================================
--- logalimacs.el 2012-06-05 16:42:30 +0900 (0e9fd52)
+++ logalimacs.el 2012-06-05 16:54:07 +0900 (2f401c6)
@@ -433,7 +433,9 @@
(defun loga-setup-point-and-width ()
(case loga-popup-output-type
(:default (setq loga-popup-width (loga-popup-width)
- loga-popup-point (loga-decide-point)))))
+ loga-popup-point (loga-decide-point)))
+ (:width (setq loga-popup-width (window-width)
+ loga-popup-point (point-at-bol)))))
(defun loga-popup-width ()
(loop for (src-len . tgt-len) in (list loga-current-max-length)