[mew-dist 25449] A patch for mew-summary-set-walk-mark

sai at example.com sai at example.com
2004年 10月 13日 (水) 00:10:46 JST


西東です。

C-u N, C-u P で、markではない文字('a'など)を入力すると、
  Wrong type argument: integerp, nil
が起きる問題を修正する、mew-summary-set-walk-markへの1行
patchです。

Index: mew-mark.el
===================================================================
RCS file: /cvsmew/mew/mew-mark.el,v
retrieving revision 1.141
diff -u -r1.141 mew-mark.el
--- mew-mark.el	12 Oct 2004 08:19:35 -0000	1.141
+++ mew-mark.el	12 Oct 2004 15:09:19 -0000
@@ -779,6 +779,7 @@
 (defun mew-summary-set-walk-mark ()
   (let ((char (mew-input-mark)))
     (cond
+     ((null char))
      ((char-equal char ?\r)
       (setq mew-mark-walk mew-mark-default-walk)
       (message "Target mark was set to '%c'" mew-mark-walk))


-- 
// SAITO Atsunori
// % echo zbp.bqrl at example.com | rot13 | rev



Mew-dist メーリングリストの案内