(cperl-info-on-command): Use goto-char instead of beginning-of-buffer.

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 94458df56e89de30eb4efa904d15668aa60d762d..38cc167d942e0b264e12a97ae2827b0809f39cd0 100644 (file)
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -5292,7 +5292,7 @@ Customized by setting variables `cperl-shrink-wrap-info-frame',
          iniwin (selected-window)
          fr1 (window-frame iniwin))
     (set-buffer buf)
-    (beginning-of-buffer)
+    (goto-char (point-min))
     (or isvar
        (progn (re-search-forward "^-X[ \t\n]")
               (forward-line -1)))