From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 21 May 2005 04:50:59 +0000 (+0000)
Subject: (tmm-shortcut): Avoid using beginning-of-buffer.
X-Git-Tag: ttn-vms-21-2-B4~106
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b74f66061032469b85fc30eb4b141e64f9709ec6;p=emacs.git

(tmm-shortcut): Avoid using beginning-of-buffer.
---

diff --git a/lisp/tmm.el b/lisp/tmm.el
index 3e0a8e95701..168dbdd14dc 100644
--- a/lisp/tmm.el
+++ b/lisp/tmm.el
@@ -362,7 +362,7 @@ Stores a list of all the shortcuts in the free variable `tmm-short-cuts'."
     (if (memq c tmm-short-cuts)
 	(if (equal (buffer-name) "*Completions*")
 	    (progn
-	      (beginning-of-buffer)
+	      (goto-char (point-min))
 	      (re-search-forward
 	       (concat "\\(^\\|[ \t]\\)" (char-to-string c) tmm-mid-prompt))
 	      (choose-completion))