null+****@clear*****
null+****@clear*****
Mon Jun 4 16:24:36 JST 2012
yuta yamada 2012-06-04 16:24:36 +0900 (Mon, 04 Jun 2012)
New Revision: 588fb9be8df613ac4565562eefe9e945acb2dd47
Log:
apply read-only when buffer created
Modified files:
logalimacs.el
Modified: logalimacs.el (+6 -1)
===================================================================
--- logalimacs.el 2012-06-04 16:07:55 +0900 (74b6093)
+++ logalimacs.el 2012-06-04 16:24:36 +0900 (bfd858a)
@@ -381,7 +381,8 @@
(switch-to-buffer (get-buffer-create "*logalimacs*"))
(erase-buffer) ;;initialize
(insert content)
- (beginning-of-buffer))
+ (beginning-of-buffer)
+ (loga-apply-read-only))
(switch-to-buffer loga-base-buffer)
(popwin:popup-buffer
(get-buffer-create "*logalimacs*")
@@ -415,6 +416,10 @@
collect (+ src-len tgt-len) into sum
finally return (min (+ (car sum) 1) (window-width))))
+(defun loga-apply-read-only ()
+ (unless buffer-read-only
+ (toggle-read-only)))
+
;;;###autoload
(defun loga-fly-mode ()
"toggle loga-fly-mode-on and loga-fly-mode-off"