[Emacs-diffs] Changes to emacs/lisp/simple.el

[Juri Linkov]

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 ()