From 930a3e462e0077308d0bf652731c7a935ea25681 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 15 Nov 2004 04:51:50 +0000 Subject: [PATCH] (compilation-internal-error-properties): Fix up a transposition-typo. Check end-col before using it. --- lisp/progmodes/compile.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 034cdaf5fdd..895b97b462a 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1,7 +1,7 @@ ;;; compile.el --- run compiler as inferior of Emacs, parse error messages -;; Copyright (C) 1985, 86, 87, 93, 94, 95, 96, 97, 98, 1999, 2001, 03, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, +;; 2001, 2003, 2004 Free Software Foundation, Inc. ;; Authors: Roland McGrath , ;; Daniel Pfeiffer @@ -638,14 +638,14 @@ FILE should be (ABSOLUTE-FILENAME) or (RELATIVE-FILENAME . DIRNAME) or nil." (goto-char (marker-position marker)) (when (or end-col end-line) (beginning-of-line (- (or end-line line) marker-line -1)) - (if (< end-col 0) + (if (or (null end-col) (< end-col 0)) (end-of-line) (if compilation-error-screen-columns (move-to-column end-col) (forward-char end-col))) (setq end-marker (list (point-marker)))) (beginning-of-line (if end-line - (- end-line line -1) + (- line end-line -1) (- loc marker-line -1))) (if col (if compilation-error-screen-columns -- 2.39.2