(Fformat): Add comment about the treatment of 0 as a multibyte

[gnu-emacs] / lisp / obsolete / hilit19.el

diff --git a/lisp/obsolete/hilit19.el b/lisp/obsolete/hilit19.el
index a324de3b1bf4477dd78fd64c31f68e022157ad16..bc06583c69433bdc30dd606c75c81a4aac9c0900 100644 (file)
--- a/lisp/obsolete/hilit19.el
+++ b/lisp/obsolete/hilit19.el
@@ -1,6 +1,6 @@
-;;; hilit19.el --- customizable highlighting for Emacs19
+;;; hilit19.el --- customizable highlighting for Emacs 19
 
-;; Copyright (c) 1993, 1994 Free Software Foundation, Inc.
+;; Copyright (c) 1993, 1994, 2001 Free Software Foundation, Inc.
 
 ;; Author:   Jonathan Stigelman <stig@hackvan.com>
 ;; Maintainer: FSF
@@ -26,7 +26,7 @@
 
 ;;; Commentary:
 
-;; Hilit19.el is a customizable highlighting package for Emacs19.  It supports
+;; Hilit19.el is a customizable highlighting package for Emacs 19.  It supports
 ;; not only source code highlighting, but also Info, RMAIL, VM, gnus...
 ;; Hilit19 knows (or thinks it knows) how to highlight emacs buffers in
 ;; about 25 different modes.
@@ -325,7 +325,7 @@
   "* If non-nil, this inhibits progress indicators during highlighting")
 
 (defvar hilit-auto-highlight t
-  "* T if we should highlight all buffers as we find 'em, nil to disable
+  "* t if we should highlight all buffers as we find 'em, nil to disable
   automatic highlighting by the find-file hook.")
 
 (defvar hilit-auto-highlight-maxout 60000 ; hilit19 keeps getting bigger...
@@ -333,7 +333,7 @@
 
 (defvar hilit-auto-rehighlight t
   "* If this is non-nil, then hilit-redraw and hilit-recenter will also
-  rehighlight part or all of the current buffer.  T will rehighlight the
+  rehighlight part or all of the current buffer.  t will rehighlight the
   whole buffer, a NUMBER will rehighlight that many lines before and after
   the cursor, and the symbol 'visible' will rehighlight only the visible
   portion of the current buffer.  This variable is buffer-local.")
@@ -346,10 +346,10 @@
   THRESHOLD.")
 
 (defvar hilit-face-check t
-  "* T slows down highlighting but permits the user to change fonts without
-  losing bold and italic faces...  T causes hilit-lookup-face-create to dig
+  "* t slows down highlighting but permits the user to change fonts without
+  losing bold and italic faces...  t causes hilit-lookup-face-create to dig
   through the frame parameters for the current window every time it's called.
-  If you never change fonts in emacs, set this to NIL.")
+  If you never change fonts in emacs, set this to nil.")
 
 ;; Variables which must be set before loading hilit19.
 
@@ -635,7 +635,8 @@ See the documentation for hilit-translate and hilit-face-translation-table."
          ;; we wanted, but ignore errors making the face bold or italic
          ;; if the font isn't available, there's nothing to do about it...
          (progn
-           (set-face-font face basefont frame)
+           (when (display-graphic-p frame)
+             (set-face-font face basefont frame))
            (set-face-underline-p face (string-match "underline" fn))
            (if (string-match ".*bold" fn)
                ;; make face bold in all frames
@@ -945,7 +946,6 @@ the entire buffer is forced."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (and (not hilit-inhibit-rebinding)
-     window-system
      (progn 
        (substitute-key-definition 'yank     'hilit-yank
                                  (current-global-map))
@@ -956,13 +956,11 @@ the entire buffer is forced."
 
 (global-set-key [?\C-\S-l] 'hilit-repaint-command)
 
-(and window-system
-     (add-hook 'find-file-hooks 'hilit-find-file-hook t))
+(add-hook 'find-file-hook 'hilit-find-file-hook t)
 
 (eval-when-compile (require 'gnus))    ; no compilation gripes
 
 (and (not hilit-inhibit-hooks)
-     window-system
      (condition-case c
         (progn
 
@@ -1053,7 +1051,7 @@ Optionally, place the new pattern first in the pattern list"
   (and (interactive-p) (hilit-rehighlight-buffer)))
 
 (defun hilit-string-find (qchar)
-  "looks for a string and returns (start . end) or NIL.  The argument QCHAR
+  "Looks for a string and returns (start . end) or nil.  The argument QCHAR
 is the character that would precede a character constant double quote.
 Finds strings delimited by double quotes.  The first double quote may not be
 preceded by QCHAR and the closing double quote may not be preceded by an odd
@@ -1512,4 +1510,4 @@ number of backslashes."
 
 (provide 'hilit19)
 
-;;; hilit19 ends here.
+;;; hilit19.el ends here