[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/simple.el
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/simple.el |
Date: |
Wed, 01 Sep 2004 14:45:52 -0400 |
Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.655 emacs/lisp/simple.el:1.656
*** emacs/lisp/simple.el:1.655 Wed Sep 1 17:05:59 2004
--- emacs/lisp/simple.el Wed Sep 1 18:41:06 2004
***************
*** 65,71 ****
(setq found buffer)))
(setq list (cdr list)))
(switch-to-buffer found)))
!
;;; next-error support framework
(defvar next-error-last-buffer nil
"The most recent next-error buffer.
--- 65,71 ----
(setq found buffer)))
(setq list (cdr list)))
(switch-to-buffer found)))
!
;;; next-error support framework
(defvar next-error-last-buffer nil
"The most recent next-error buffer.
***************
*** 200,206 ****
Finds and highlights the source line like \\[next-error], but does not
select the source buffer."
(interactive "p")
! (next-error n)
(pop-to-buffer next-error-last-buffer))
(defun previous-error-no-select (&optional n)
--- 200,207 ----
Finds and highlights the source line like \\[next-error], but does not
select the source buffer."
(interactive "p")
! (let ((next-error-highlight next-error-highlight-no-select))
! (next-error n))
(pop-to-buffer next-error-last-buffer))
(defun previous-error-no-select (&optional n)
***************
*** 212,217 ****
--- 213,255 ----
(interactive "p")
(next-error-no-select (- (or n 1))))
+ (defgroup next-error nil
+ "next-error support framework."
+ :group 'compilation
+ :version "21.4")
+
+ (defface next-error
+ '((t (:inherit region)))
+ "Face used to highlight next error locus."
+ :group 'next-error
+ :version "21.4")
+
+ (defcustom next-error-highlight 0.1
+ "*Highlighting of locations in selected source buffers.
+ If number, highlight the locus in next-error face for given time in seconds.
+ If t, use persistent overlays fontified in next-error face.
+ If nil, don't highlight the locus in the source buffer.
+ If `fringe-arrow', indicate the locus by the fringe arrow."
+ :type '(choice (number :tag "Delay")
+ (const :tag "Persistent overlay" t)
+ (const :tag "No highlighting" nil)
+ (const :tag "Fringe arrow" 'fringe-arrow))
+ :group 'next-error
+ :version "21.4")
+
+ (defcustom next-error-highlight-no-select 0.1
+ "*Highlighting of locations in non-selected source buffers.
+ If number, highlight the locus in next-error face for given time in seconds.
+ If t, use persistent overlays fontified in next-error face.
+ If nil, don't highlight the locus in the source buffer.
+ If `fringe-arrow', indicate the locus by the fringe arrow."
+ :type '(choice (number :tag "Delay")
+ (const :tag "Persistent overlay" t)
+ (const :tag "No highlighting" nil)
+ (const :tag "Fringe arrow" 'fringe-arrow))
+ :group 'next-error
+ :version "21.4")
+
;;;
(defun fundamental-mode ()
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Juri Linkov, 2004/09/01
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Juri Linkov, 2004/09/01
- [Emacs-diffs] Changes to emacs/lisp/simple.el,
Juri Linkov <=
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Eli Zaretskii, 2004/09/04
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Eli Zaretskii, 2004/09/04
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Eli Zaretskii, 2004/09/06
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Kim F . Storm, 2004/09/13
- [Emacs-diffs] Changes to emacs/lisp/simple.el, Luc Teirlinck, 2004/09/18