/[emacs]/emacs/lisp/progmodes/compile.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/compile.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.321 by pfeiffer, Tue Jun 8 21:36:37 2004 UTC revision 1.322 by pfeiffer, Fri Jun 18 23:00:46 2004 UTC
# Line 583  Faces `compilation-error-face', `compila Line 583  Faces `compilation-error-face', `compila
583           (setq col (match-string-no-properties col))           (setq col (match-string-no-properties col))
584           (setq col (- (string-to-number col) compilation-first-column)))           (setq col (- (string-to-number col) compilation-first-column)))
585      (if (and end-col (setq end-col (match-string-no-properties end-col)))      (if (and end-col (setq end-col (match-string-no-properties end-col)))
586          (setq end-col (- (string-to-number end-col) compilation-first-column))          (setq end-col (- (string-to-number end-col) compilation-first-column -1))
587        (if end-line (setq end-col -1)))        (if end-line (setq end-col -1)))
588      (if (consp type)                    ; not a static type, check what it is.      (if (consp type)                    ; not a static type, check what it is.
589          (setq type (or (and (car type) (match-end (car type)) 1)          (setq type (or (and (car type) (match-end (car type)) 1)

Legend:
Removed from v.1.321  
changed lines
  Added in v.1.322

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26