[mew-dist 23972] Re: mew-summary-jump-{top,bottom}

[Shun-ichi TAHARA ( 田原 俊一 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Message-Id: <20030815.173021.97275184.kazu at example.com>

> 僕は "M-<" や "M->" でマークが付くのが嫌なので、
> 	(global-set-key "\e<" (lambda () (interactive) (goto-char (point-min))))
> 	(global-set-key "\e>" (lambda () (interactive) (goto-char (point-max))))と設定しています。
> 
> "M-<" や "M->" でマークが設定されると何が嬉しいのでしょうか？

M-< の後、C-xC-x で、元の場所に戻れるんですよね。

私はこれは捨てがたいけど、でもマークが付くのは嫌なので、

(defvar toggle-buffer-prevmarker nil)

(defun toggle-buffer-sub (point-max-or-min)
  (cond ((or (and (not (eq last-command 'toggle-beginning-of-buffer))
                  (not (eq last-command 'toggle-end-of-buffer)))
             (eq toggle-buffer-prevmarker nil))
         (setq toggle-buffer-prevmarker (point-marker))
         (goto-char point-max-or-min))
        ((not (eq this-command last-command))
         (goto-char point-max-or-min))
        (t
         (goto-char toggle-buffer-prevmarker)
         (setq toggle-buffer-prevmarker nil))))

(defun toggle-beginning-of-buffer ()
  "マークをセットせずに, バッファの先頭に移動する.
連続して実行すると元の位置に戻る."
  (interactive)
  (toggle-buffer-sub (point-min)))

(defun toggle-end-of-buffer ()
  "マークをセットせずに, バッファの最後に移動する.
連続して実行すると元の位置に戻る."
  (interactive)
  (toggle-buffer-sub (point-max)))

というLISPを書いて、これに割り当ててます。

# 10年くらい前に書いたやつなので、かなり稚拙ではありますが :-)
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
田原 俊一   jado at example.com, shunichi_tahara at example.com
                                  http://flowernet.gr.jp/jado/
FingerPrint:  16 9E 70 3B 05 86 5D 08  B8 4C 47 3A E7 E9 8E D9
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣