[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: fringe arrow conflict between compile and gud?
From: |
Richard Stallman |
Subject: |
Re: fringe arrow conflict between compile and gud? |
Date: |
Thu, 31 Mar 2005 23:10:01 -0500 |
This seems like a good change, but wouldn't it be cleaner to do the
add-to-list call be done where next-error-overlay-arrow is defined?
As for the next-error arrow, the patch below uses its own arrow
for next-error highlighting:
Index: lisp/progmodes/compile.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/compile.el,v
retrieving revision 1.348
diff -u -r1.348 compile.el
--- lisp/progmodes/compile.el 29 Mar 2005 04:56:44 -0000 1.348
+++ lisp/progmodes/compile.el 31 Mar 2005 06:17:30 -0000
@@ -1233,6 +1233,8 @@
(make-local-variable 'compilation-messages-start)
(make-local-variable 'compilation-error-screen-columns)
(make-local-variable 'overlay-arrow-position)
+ (setq next-error-overlay-arrow nil)
+ (add-to-list 'overlay-arrow-variable-list 'next-error-overlay-arrow)
;; Note that compilation-next-error-function is for interfacing
;; with the next-error function in simple.el, and it's only
;; coincidentally named similarly to compilation-next-error.
@@ -1641,8 +1643,9 @@
(numberp next-error-highlight)))
(delete-overlay compilation-highlight-overlay))))))
(when (and (eq next-error-highlight 'fringe-arrow))
- (set (make-local-variable 'overlay-arrow-position)
- (copy-marker (line-beginning-position))))))
+ (setq next-error-overlay-arrow
+ (copy-marker (line-beginning-position))))))
+
(defun compilation-find-file (marker filename dir &rest formats)
"Find a buffer for file FILENAME.
Index: lisp/simple.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/simple.el,v
retrieving revision 1.705
diff -u -r1.705 simple.el
--- lisp/simple.el 29 Mar 2005 23:17:30 -0000 1.705
+++ lisp/simple.el 31 Mar 2005 06:19:09 -0000
@@ -114,6 +114,8 @@
(defvar next-error-highlight-timer nil)
+(defvar next-error-overlay-arrow nil)
+
(defvar next-error-last-buffer nil
"The most recent next-error buffer.
A buffer becomes most recent when its compilation, grep, or
- Re: fringe arrow conflict between compile and gud?, (continued)
- Re: fringe arrow conflict between compile and gud?, Kim F. Storm, 2005/03/29
- Re: fringe arrow conflict between compile and gud?, Juri Linkov, 2005/03/29
- Re: fringe arrow conflict between compile and gud?, Nick Roberts, 2005/03/29
- Re: fringe arrow conflict between compile and gud?, JUAN-LEON Lahoz Garcia, 2005/03/29
- Re: fringe arrow conflict between compile and gud?, Kim F. Storm, 2005/03/29
- Re: fringe arrow conflict between compile and gud?, Nick Roberts, 2005/03/29
- Re: fringe arrow conflict between compile and gud?, Kim F. Storm, 2005/03/29
- Re: fringe arrow conflict between compile and gud?, Nick Roberts, 2005/03/30
- Re: fringe arrow conflict between compile and gud?, Kim F. Storm, 2005/03/30
- Re: fringe arrow conflict between compile and gud?, Juri Linkov, 2005/03/31
- Re: fringe arrow conflict between compile and gud?,
Richard Stallman <=
- Re: fringe arrow conflict between compile and gud?, Richard Stallman, 2005/03/31
- Re: fringe arrow conflict between compile and gud?, Nick Roberts, 2005/03/31
- Re: fringe arrow conflict between compile and gud?, Juri Linkov, 2005/03/31
- Re: fringe arrow conflict between compile and gud?, Juri Linkov, 2005/03/31
- Re: fringe arrow conflict between compile and gud?, Nick Roberts, 2005/03/31
- Re: fringe arrow conflict between compile and gud?, Juri Linkov, 2005/03/31
Re: fringe arrow conflict between compile and gud?, Juri Linkov, 2005/03/24