[Mew-dist 03679] Re: ask citation prefix if you want.

[中村秀和 /Hidekazu Nakamura]

中村です。

>From: Akihiro Motoki <motoki at example.com>
>Subject: [Mew-dist 03677] ask citation prefix if you want.
>Date: Sat, 7 Feb 1998 05:10:10 +0900
>Message-ID: <19980207051006S.motoki at example.com>

Motoki> そこで、mew-ask-cite-prefix という変数を導入し、この変数が t の
Motoki> ときは、cite-prefix を尋ねるようにしました。デフォルトで表示され
Motoki> る値を使いときはリターンをたたくだけです。prefix は、"(入力値)> " 
Motoki> になります。

いいですね。さっそくあてて使っています。^_^

Motoki> 名前を入れず prefix を "> " にしたいときに困るので、いいアイデアが
Motoki> 浮かばなかったので、"<" と入力すると、"> " が入るようにしました。
Motoki> # まさか、cite-prefix として、"<> " を使う人はいないでしょう(^^)
Motoki> 何かいい文字があったら、提案してください。

こうしてはどうでしょう?

・最初にデフォルトをミニバッファにあらかじめ入力させておく。
・そのままリターンなら、デフォルトが、全てその文字を削除してリターンすれ
ば、文字なし("")が、適当に修正すれば修正したものが。prefixとして入る。

ということで、パッチです。元木さんのパッチをあてた後にあてて下さい。


             ◆    (株)宇部情報システム  中村　秀和    ◆
           ◆◆◆     mailto:u90121 at example.com    ◆◆◆
             ◆         http://www.uis-inf.co.jp       ◆

-------------- next part --------------
--- mew-minibuf.el~     Sat Feb  7 13:19:42 1998
+++ mew-minibuf.el      Sat Feb  7 13:38:37 1998
@@ -189,9 +189,8 @@
 
 (defun mew-input-prefix (default)
   (let ((prefix (read-from-minibuffer
-                (format "Citation prefix (%s): " default))))
-    (cond ((string= prefix "") default)
-         ((string= prefix "<") "")
+                (format "Citation prefix (%s): " default) default)))
+    (cond ((string= prefix default) default)
          (t prefix))
     ))