null+****@clear*****
null+****@clear*****
Fri Jun 8 19:28:35 JST 2012
yuta yamada 2012-06-08 19:28:35 +0900 (Fri, 08 Jun 2012)
New Revision: fe24cac2a57dd9eb700d342eb72b92ea3b150574
Log:
loga-popup-output-type: correspond symbol of "'"
Modified files:
logalimacs.el
Modified: logalimacs.el (+11 -5)
===================================================================
--- logalimacs.el 2012-06-08 18:48:04 +0900 (4f9e8d4)
+++ logalimacs.el 2012-06-08 19:28:35 +0900 (9df14cd)
@@ -439,12 +439,18 @@
(+ (point-at-bol) quarter))
(t (point)))))
+(defun loga-popup-output-type ()
+ (let ((type (symbol-name loga-popup-output-type)))
+ (if (string-match ":" type)
+ loga-popup-output-type
+ (make-symbol (concat ":" type)))))
+
(defun loga-setup-point-and-width ()
- (case loga-popup-output-type
- ((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)))))
+ (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)))))
(defun loga-compute-width ()
(loop for (source-length . target-length) in (list loga-current-max-length)