(next-error-highlight, next-error-highlight-no-select):

Fix custom type and doc strings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ddada13d17b9d99e47dcf7fd8065ed89d1cf7e22..efff4c2d2d78c9b6fcbc0feeed0c28b723593115 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-11  Richard Stallman  <rms@gnu.org>
+
+       * simple.el (next-error-highlight, next-error-highlight-no-select): 
+       Fix custom type and doc strings.
+
 2006-09-11  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * diff-mode.el (diff-apply-hunk-to-backup-file): New var.

diff --git a/lisp/simple.el b/lisp/simple.el
index 8cade1f41b5d7e995dff78349bde8ea097a857c4..6533255357f95b876d067b3b638978a9652b4781 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -131,26 +131,26 @@ If no other buffer exists, the buffer `*scratch*' is returned."
 (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 t, highlight the locus indefinitely until some other locus replaces it.
 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)
+  :type '(choice (number :tag "Highlight for specified time")
+                 (const :tag "Semipermantent highlighting" t)
                  (const :tag "No highlighting" nil)
-                 (const :tag "Fringe arrow" 'fringe-arrow))
+                 (const :tag "Fringe arrow" fringe-arrow))
   :group 'next-error
   :version "22.1")
 
 (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 t, highlight the locus indefinitely until some other locus replaces it.
 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)
+  :type '(choice (number :tag "Highlight for specified time")
+                 (const :tag "Semipermantent highlighting" t)
                  (const :tag "No highlighting" nil)
-                 (const :tag "Fringe arrow" 'fringe-arrow))
+                 (const :tag "Fringe arrow" fringe-arrow))
   :group 'next-error
   :version "22.1")