From: Richard M. Stallman 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))