From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 7 Nov 2004 03:57:24 +0000 (+0000)
Subject: (cperl-info-on-command): Use goto-char instead of beginning-of-buffer.
X-Git-Tag: ttn-vms-21-2-B4~4135
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc49c9c623f4684cf9e3c0c03cd46d6cabccf2f0;p=emacs.git

(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 94458df56e8..38cc167d942 100644
--- 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)))