[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[mhc:00342] mhc on XEmacs



白井です。

XEmacs で mhc を使うときの不具合を 2つほど見付けました。
emacs-version => "21.2 (beta26) "Millenium" XEmacs Lucid" です。

1. rescan のとき、(what-line) の戻り値が 't' になっているので破
 綻する。

simple.el では
(defun what-line ()
  <<snip>>
		 (message "Line %d" buffer-line)))))))
  (setq zmacs-region-stays t)) => これが戻り値になる

ですって。パッチ参照。

# なんかの本で what-line は elisp から使うなって書いてあったよう
# なかすかな記憶があるのだけど。。。


2. 同一 buffer に縦型カレンダを表示すると、表示が乱れる。
 (tab=8 で見てね)

01/01  Sat             元日						  |    December 1999
                       正月休み					  | Su Mo Tu We Th Fr Sa
------------------------------------------------------			  |           1  2  3  4 
01/02 (Sun)            正月休み					  |  5  6  7  8  9 10 11
01/03  Mon             正月休み					  | 12 13 14 15 16 17 18
01/04  Tue             正月休み					  | 19 20 21 22 23 24 25
01/05  Wed 09:00-09:20 始業式					  | 26 27 28 29 30 31
01/06  Thu             						  |
01/07  Fri 15:00       事業計画再検討(ランク)			  |    January 2000
           16:00       進捗報告					  | Su Mo Tu We Th Fr Sa
01/08  Sat 09:30       新井歯科					  |                    1
------------------------------------------------------			  |  2  3  4  5  6  7  8 

mhc-cal-move-to-column-force (column) した場所が、もともとおかし
いのですが、
(put-text-property (point-min) (point-max) 'invisible nil)
してみると


01/01  Sat             元日						  |    December 1999
0 |                        正月休み					  | Su Mo Tu We Th Fr Sa
------------------------------------------------------			  |           1  2  3  4 
0 | 01/02 (Sun)            正月休み					  |  5  6  7  8  9 10 11
0 | 01/03  Mon             正月休み					  | 12 13 14 15 16 17 18
0 | 01/04  Tue             正月休み					  | 19 20 21 22 23 24 25
0 | 01/05  Wed 09:00-09:20 始業式					  | 26 27 28 29 30 31
0 | 01/06  Thu             						  |
0 | 01/07  Fri 15:00       事業計画再検討(ランク)			  |    January 2000
0 |            16:00       進捗報告					  | Su Mo Tu We Th Fr Sa
0 | 01/08  Sat 09:30       新井歯科					  |                    1
------------------------------------------------------			  |  2  3  4  5  6  7  8 

となりました。私の場合はこれが正しい位置です。こちらは、どう対処
すればいいのかわかりません。

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxxxxxxxx)

以下、what-line 用のパッチです。info のまんま。

--- mhc.el.orig	Fri Jan 14 18:44:02 2000
+++ mhc.el	Fri Jan 14 19:32:52 2000
@@ -179,8 +179,8 @@
 (defun mhc-rescan-month (&optional hide-private)
   (interactive "P")
   (let ((category (mhc-category-convert mhc-default-category))
-	(line (string-to-int
-	       (substring (what-line) (string-match "[0-9]+" (what-line))))))
+	(line (+ (count-lines (point-min) (point))
+		 (if (= (current-column) 0) 1 0))))
     (mhc-scan-month
      (mhc-current-ddate-month)
      mhc-mailer-package
@@ -457,7 +457,6 @@
 	 (add-hook 'post-command-hook 'mhc-calendar-post-command))))
 
 (defun mhc-calendar-post-command ()
-  (interactive)
   (if (and mhc-calendar-date
 	   (get-buffer mhc-calendar-buffer))
       (let ((win (selected-window))