Mercurial > emacs
comparison lisp/progmodes/compile.el @ 56154:0faa9af73cb1
(compilation-error-properties): Store one more than end-col, if present, so
that transient-mark-mode will highlight last char too.
| author | Daniel Pfeiffer <occitan@esperanto.org> |
|---|---|
| date | Fri, 18 Jun 2004 23:00:46 +0000 |
| parents | c6610cef9b75 |
| children | fb266772e0e7 4c90ffeb71c5 |
comparison
equal
deleted
inserted
replaced
| 56153:3879c096c20c | 56154:0faa9af73cb1 |
|---|---|
| 581 (setq end-line (string-to-number end-line))) | 581 (setq end-line (string-to-number end-line))) |
| 582 (and col | 582 (and col |
| 583 (setq col (match-string-no-properties col)) | 583 (setq col (match-string-no-properties col)) |
| 584 (setq col (- (string-to-number col) compilation-first-column))) | 584 (setq col (- (string-to-number col) compilation-first-column))) |
| 585 (if (and end-col (setq end-col (match-string-no-properties end-col))) | 585 (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)) | 586 (setq end-col (- (string-to-number end-col) compilation-first-column -1)) |
| 587 (if end-line (setq end-col -1))) | 587 (if end-line (setq end-col -1))) |
| 588 (if (consp type) ; not a static type, check what it is. | 588 (if (consp type) ; not a static type, check what it is. |
| 589 (setq type (or (and (car type) (match-end (car type)) 1) | 589 (setq type (or (and (car type) (match-end (car type)) 1) |
| 590 (and (cdr type) (match-end (cdr type)) 0) | 590 (and (cdr type) (match-end (cdr type)) 0) |
| 591 2))) | 591 2))) |