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

diff --git a/lisp/tmm.el b/lisp/tmm.el
index 3e0a8e95701d5de9c8ad5bc7a27cba88c7f39b1b..168dbdd14dce9c6792d0e8d50e6b760806949add 100644 (file)
--- 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))