From 9477096cf12dc0e2d2dd9e27b773d847198b85f5 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 10 Sep 2009 06:23:06 +0000 Subject: [PATCH] (cvs-mode-find-file): Use forward-line rather than goto-line. --- lisp/ChangeLog | 34 ++++++++++++++++++++++++++++++++++ lisp/pcvs.el | 5 ++++- 2 files changed, 38 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1a739078fb8..93372a90e44 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,37 @@ +2009-09-10 Glenn Morris + + * pcvs.el (cvs-mode-find-file): Use forward-line rather than goto-line. + + * emacs-lisp/bytecomp.el (byte-compile-function-environment): Doc fix. + (byte-compile-file-form-autoload): Don't warn about unknown functions + where the autoload statement comes after the use. + (with-no-warnings): Give it a byte-hunk-handler like than of progn, so + that any handlers inside the body (eg require) are in turn respected. + + * emacs-lisp/byte-opt.el (degrees-to-radians): Mark as free from side + effects. + + * emacs-lisp/derived.el (define-derived-mode): Give the mode's map, + and syntax and abbrev tables basic docs, if they don't have any. + + * emacs-lisp/easy-mmode.el (easy-mmode-defmap): Add doc-string. + + * international/mule-cmds.el (top-level): Require cl when compiling. + (view-hello-file): Use default-value rather than + default-enable-multibyte-characters. + + * progmodes/fortran.el: Move all safe and risky properties into the + defcustoms. + + * mail/rmailedit.el, mail/rmailkwd.el, mail/rmailmm.el: + * mail/rmailmsc.el, mail/rmailsort.el, mail/rmailsum.el: + * mail/undigest.el: + Put autoloads in rmail.el rather than loaddefs.el. + * mail/rmail.el: Regenerate with extracted autoloads. + + * mail/rmailsum.el (rmail-user-mail-address-regexp): Move to rmail.el. + * mail/rmail.el (rmail-user-mail-address-regexp): Move from rmailsum.el. + 2009-09-10 Nick Roberts Reported in thread for Bug#4375. diff --git a/lisp/pcvs.el b/lisp/pcvs.el index dc01c45ad3f..c184e22019c 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el @@ -2054,7 +2054,10 @@ With a prefix, opens the buffer in an OTHER window." (t (if view 'view-buffer 'switch-to-buffer))) buf) (when (and cvs-find-file-and-jump (cvs-applicable-p fi 'diff-base)) - (goto-line (cvs-find-modif fi))) + (save-restriction + (widen) + (goto-char (point-min)) + (forward-line (1- (cvs-find-modif fi))))) buf)))))) -- 2.11.4.GIT