[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))