null+****@clear*****
null+****@clear*****
Mon Jun 4 16:38:42 JST 2012
yuta yamada 2012-06-04 16:38:42 +0900 (Mon, 04 Jun 2012)
New Revision: 823ea70447f5b673dfde57ce816bea5124620d26
Log:
delete unnecessary function and use toggle-read-only with argument
Modified files:
logalimacs.el
Modified: logalimacs.el (+2 -5)
===================================================================
--- logalimacs.el 2012-06-04 16:24:36 +0900 (bfd858a)
+++ logalimacs.el 2012-06-04 16:38:42 +0900 (a0b5fd6)
@@ -379,10 +379,11 @@
(setq other-window-scroll-buffer "*logalimacs*")
(with-temp-buffer
(switch-to-buffer (get-buffer-create "*logalimacs*"))
+ (toggle-read-only 0)
(erase-buffer) ;;initialize
(insert content)
(beginning-of-buffer)
- (loga-apply-read-only))
+ (toggle-read-only t))
(switch-to-buffer loga-base-buffer)
(popwin:popup-buffer
(get-buffer-create "*logalimacs*")
@@ -416,10 +417,6 @@
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"