[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master c24e742: * lisp/progmodes/compile.el: Assume 8-wide
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master c24e742: * lisp/progmodes/compile.el: Assume 8-wide TABs (bug#21038) |
Date: |
Thu, 13 Aug 2015 20:59:20 +0000 |
branch: master
commit c24e742e00775a3e6964f32a521460345c9e07cb
Author: Magnus Henoch <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/progmodes/compile.el: Assume 8-wide TABs (bug#21038)
* lisp/progmodes/compile.el: Use lexical-binding.
(compilation-move-to-column): Assume 8-wide TABs (bug#21038).
---
lisp/progmodes/compile.el | 6 ++++--
1 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 9a44335..9d1d148 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1,4 +1,4 @@
-;;; compile.el --- run compiler as inferior of Emacs, parse error messages
+;;; compile.el --- run compiler as inferior of Emacs, parse error messages
-*- lexical-binding:t -*-
;; Copyright (C) 1985-1987, 1993-1999, 2001-2015 Free Software
;; Foundation, Inc.
@@ -1109,7 +1109,9 @@ If SCREEN is non-nil, columns are screen columns,
otherwise, they are
just char-counts."
(setq col (- col compilation-first-column))
(if screen
- (move-to-column (max col 0))
+ ;; Presumably, the compilation tool doesn't know about our current
+ ;; `tab-width' setting, so it probably assumed 8-wide TABs (bug#21038).
+ (let ((tab-width 8)) (move-to-column (max col 0)))
(goto-char (min (+ (line-beginning-position) col) (line-end-position)))))
(defun compilation-internal-error-properties (file line end-line col end-col
type fmts)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master c24e742: * lisp/progmodes/compile.el: Assume 8-wide TABs (bug#21038),
Stefan Monnier <=