# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1099799844 0
# Node ID e47d2626afd7ac0fb5984baa715b2ee80d506c3e
# Parent  54c4744d809ad8d3614fab142917fcac21259a15
(cperl-info-on-command): Use goto-char instead of beginning-of-buffer.

diff -r 54c4744d809a -r e47d2626afd7 lisp/progmodes/cperl-mode.el
--- a/lisp/progmodes/cperl-mode.el	Sun Nov 07 03:56:09 2004 +0000
+++ b/lisp/progmodes/cperl-mode.el	Sun Nov 07 03:57:24 2004 +0000
@@ -5292,7 +5292,7 @@
 	  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)))