home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / help-lucid-emacs / text0096.txt < prev    next >
Encoding:
Text File  |  1993-07-14  |  11.3 KB  |  281 lines
  1. I don't have any objection to making it possible to specify extent priorities
  2. and other things in font-lock mode, so long as it doesn't slow down the simple
  3. cases.  But I don't see the things that you currently can't do as being very
  4. much of a limitation, so someone who disagrees should write the code and send
  5. it to me.
  6.  
  7. (Instead of parsing font-lock-keywords in place, it might be worth considering
  8. having the format of font-lock-keywords be human-readable, perhaps with
  9. keyword instead of positional arguments, and have font-lock mode internally
  10. compile it to a form that is faster to traverse at fontification time.)
  11.  
  12. Here's a patch against the 19.6 version of font-lock.el that fixes a few minor
  13. bugs, and adds highlighting for dired buffers.
  14.  
  15.     -- Jamie
  16.  
  17. *** /cadillac-th2/lemacs-19.6/lisp/packages/font-lock.el    Wed Mar 24 15:17:19 1993
  18. --- font-lock.el    Sat Apr 17 16:27:36 1993
  19. ***************
  20. *** 28,33 ****
  21. --- 28,38 ----
  22.   ;;  displayed in `font-lock-function-name-face'.
  23.   ;; Reserved words will be displayed in `font-lock-keyword-face'.
  24.   ;;
  25. + ;; Don't let the name fool you: you can highlight things using different
  26. + ;; colors or background stipples instead of fonts, though that is not the
  27. + ;; default.  See the documentation on faces and how to change their
  28. + ;; attributes.
  29. + ;;
  30.   ;; To make the text you type be fontified, use M-x font-lock-mode.
  31.   ;; When this minor mode is on, the fonts of the current line will be
  32.   ;; updated with every insertion or deletion.
  33. ***************
  34. *** 36,52 ****
  35.   ;; The default font-lock-mode-hook sets it to the value of the variables
  36.   ;; lisp-font-lock-keywords, c-font-lock-keywords, etc, as appropriate.
  37.   ;; The easiest way to change the highlighting patterns is to change the
  38. ! ;; values of c-font-lock-keywords and related variables.
  39.   ;;
  40.   ;; To turn this on automatically, add this to your .emacs file:
  41.   ;;
  42.   ;;    (setq emacs-lisp-mode-hook '(lambda () (font-lock-mode 1)))
  43.   ;;
  44.   ;; On a Sparc2, the initial fontification takes about 12 seconds for a 120k
  45.   ;; file of C code, using the default configuration.  You can speed this up
  46.   ;; substantially by removing some of the patterns that are highlighted by
  47.   ;; default.  Fontifying lisp code is significantly faster, because lisp has a
  48.   ;; more regular syntax than C, so the expressions don't have to be as hairy.
  49.   
  50.   
  51.   (make-face 'font-lock-comment-face)
  52. --- 41,71 ----
  53.   ;; The default font-lock-mode-hook sets it to the value of the variables
  54.   ;; lisp-font-lock-keywords, c-font-lock-keywords, etc, as appropriate.
  55.   ;; The easiest way to change the highlighting patterns is to change the
  56. ! ;; values of c-font-lock-keywords and related variables.  See the doc
  57. ! ;; string of the variable `font-lock-keywords' for the appropriate syntax.
  58.   ;;
  59.   ;; To turn this on automatically, add this to your .emacs file:
  60.   ;;
  61.   ;;    (setq emacs-lisp-mode-hook '(lambda () (font-lock-mode 1)))
  62. + ;;    (setq c-mode-hook        '(lambda () (font-lock-mode 1)))
  63. + ;;    (setq c++-mode-hook       '(lambda () (font-lock-mode 1)))
  64. + ;;    (setq dired-mode-hook       '(lambda () (font-lock-mode 1)))
  65.   ;;
  66. + ;; and so on.
  67. + ;;
  68.   ;; On a Sparc2, the initial fontification takes about 12 seconds for a 120k
  69.   ;; file of C code, using the default configuration.  You can speed this up
  70.   ;; substantially by removing some of the patterns that are highlighted by
  71.   ;; default.  Fontifying lisp code is significantly faster, because lisp has a
  72.   ;; more regular syntax than C, so the expressions don't have to be as hairy.
  73. + ;;
  74. + ;; The default value for `lisp-font-lock-keywords' is the value of the variable
  75. + ;; `lisp-font-lock-keywords-1'.  You may like `lisp-font-lock-keywords-2' 
  76. + ;; better; it highlights many more words, but is slower and makes your buffers
  77. + ;; be very visually noisy.
  78. + ;;
  79. + ;; The same is true of `c-font-lock-keywords-1' and `c-font-lock-keywords-2';
  80. + ;; the former is subdued, the latter is loud.
  81.   
  82.   
  83.   (make-face 'font-lock-comment-face)
  84. ***************
  85. *** 137,150 ****
  86.       (t nil)))
  87.   
  88.   
  89.   (defun font-lock-fontify-region (start end)
  90. !   (goto-char start)
  91. !   (if (> end (point-max)) (setq end (point-max)))
  92. !   (syntactically-sectionize start end
  93. !     (function
  94. !      (lambda (extent context depth)
  95. !        (set-extent-face extent (font-lock-context-face context depth))))
  96. !    'font-lock))
  97.   
  98.   (defun font-lock-unfontify-region (beg end)
  99.     ;; First delete all extents on this line (really, in this region).
  100. --- 156,179 ----
  101.       (t nil)))
  102.   
  103.   
  104. + (defvar font-lock-use-syntax-tables t
  105. +   "Whether font-lock should bother doing syntactic fontification.
  106. + This should be true for all ``language'' modes, but other modes, like
  107. + dired, do not have anything useful in the syntax tables (no comment
  108. + or string delimiters, etc) and so there is no need to use them.
  109. + You should not set this variable; its value is automatically computed
  110. + by examining the syntax table.")
  111. + 
  112.   (defun font-lock-fontify-region (start end)
  113. !   (if (not font-lock-use-syntax-tables)
  114. !       nil
  115. !     (goto-char start)
  116. !     (if (> end (point-max)) (setq end (point-max)))
  117. !     (syntactically-sectionize start end
  118. !       (function
  119. !        (lambda (extent context depth)
  120. !      (set-extent-face extent (font-lock-context-face context depth))))
  121. !       'font-lock)))
  122.   
  123.   (defun font-lock-unfontify-region (beg end)
  124.     ;; First delete all extents on this line (really, in this region).
  125. ***************
  126. *** 272,278 ****
  127.   
  128.   When font-lock mode is turned on/off, the buffer is fontified/defontified.
  129.   To fontify a buffer without having newly typed text become fontified, you
  130. ! can use \\[font-lock-fontify-buffer]."
  131.     (interactive "P")
  132.     (let ((on-p (if (null arg)
  133.             (not font-lock-mode)
  134. --- 301,309 ----
  135.   
  136.   When font-lock mode is turned on/off, the buffer is fontified/defontified.
  137.   To fontify a buffer without having newly typed text become fontified, you
  138. ! can use \\[font-lock-fontify-buffer].
  139. ! 
  140. ! See the variable `font-lock-keywords' for customization."
  141.     (interactive "P")
  142.     (let ((on-p (if (null arg)
  143.             (not font-lock-mode)
  144. ***************
  145. *** 281,287 ****
  146.       (setq on-p nil))
  147.       (or (memq after-change-function
  148.             '(nil font-lock-after-change-function))
  149. !     (error "after-change-function is %s" after-change-function))
  150.       (set (make-local-variable 'after-change-function)
  151.        (if on-p 'font-lock-after-change-function nil))
  152.       (set (make-local-variable 'font-lock-mode) on-p)
  153. --- 312,319 ----
  154.       (setq on-p nil))
  155.       (or (memq after-change-function
  156.             '(nil font-lock-after-change-function))
  157. !     (error "after-change-function is %S" after-change-function))
  158. !     (if on-p (font-lock-examine-syntax-table))
  159.       (set (make-local-variable 'after-change-function)
  160.        (if on-p 'font-lock-after-change-function nil))
  161.       (set (make-local-variable 'font-lock-mode) on-p)
  162. ***************
  163. *** 312,321 ****
  164.       (if font-lock-verbose (message "Fontifying %s..." (buffer-name)))
  165.       ;; Turn it on to run hooks and get the right font-lock-keywords.
  166.       (or was-on (font-lock-mode 1))
  167. !     (map-extents (function (lambda (x y)
  168. !                  (if (eq 'font-lock (extent-data x))
  169. !                  (delete-extent x))))
  170. !          (current-buffer) (point-min) (point-max) nil)
  171.       (if font-lock-verbose (message "Fontifying %s... (syntactically...)"
  172.                      (buffer-name)))
  173.       (buffer-syntactic-context-flush-cache)
  174. --- 344,350 ----
  175.       (if font-lock-verbose (message "Fontifying %s..." (buffer-name)))
  176.       ;; Turn it on to run hooks and get the right font-lock-keywords.
  177.       (or was-on (font-lock-mode 1))
  178. !     (font-lock-unfontify-region (point-min) (point-max))
  179.       (if font-lock-verbose (message "Fontifying %s... (syntactically...)"
  180.                      (buffer-name)))
  181.       (buffer-syntactic-context-flush-cache)
  182. ***************
  183. *** 324,334 ****
  184.         (if font-lock-verbose (message "Fontifying %s... (regexps...)"
  185.                        (buffer-name)))
  186.         (font-lock-hack-keywords (point-min) (point-max) font-lock-verbose))
  187. !     (or was-on (font-lock-mode 0)) ; turn it off if it was off.
  188.       (set (make-local-variable 'font-lock-fontified) t)
  189.       (if font-lock-verbose (message "Fontifying %s... done." (buffer-name)))
  190.       ))
  191.   
  192.   
  193.   ;;; various mode interfaces
  194.   
  195. --- 353,382 ----
  196.         (if font-lock-verbose (message "Fontifying %s... (regexps...)"
  197.                        (buffer-name)))
  198.         (font-lock-hack-keywords (point-min) (point-max) font-lock-verbose))
  199. !     (or was-on        ; turn it off if it was off.
  200. !     (let ((font-lock-fontified nil)) ; kludge to prevent defontification
  201. !       (font-lock-mode 0)))
  202.       (set (make-local-variable 'font-lock-fontified) t)
  203.       (if font-lock-verbose (message "Fontifying %s... done." (buffer-name)))
  204.       ))
  205.   
  206. + (defun font-lock-examine-syntax-table ()
  207. +   "Computes the value of font-lock-use-syntax-tables for this buffer."
  208. +   (let ((i (1- (length (syntax-table))))
  209. +     (got-one nil))
  210. +     (if (eq (syntax-table) (standard-syntax-table))
  211. +     ;; Assume that modes which haven't bothered to install their own
  212. +     ;; syntax table don't do anything syntactically interesting.
  213. +     ;; Really, the standard-syntax-table shouldn't have comments and
  214. +     ;; strings in it, but changing that now might break things.
  215. +     nil
  216. +       ;; else map over the syntax table looking for strings or comments.
  217. +       (while (>= i 0)
  218. +     (if (memq (char-syntax i) '(?\" ?\< ?\> ?\$))
  219. +         (setq got-one t i 0))
  220. +     (setq i (1- i))))
  221. +     (set (make-local-variable 'font-lock-use-syntax-tables) got-one)))
  222. + 
  223.   
  224.   ;;; various mode interfaces
  225.   
  226. ***************
  227. *** 527,536 ****
  228.      )
  229.     "Additional expressions to highlight in TeXinfo-mode.")
  230.   
  231.   
  232.   ;; Kludge
  233.   (defun dummy-font-lock-mode-hook ()
  234. !   "sets font-lock-keywords to something appropriate for this mode."
  235.     (setq font-lock-keywords
  236.       (cond ((eq major-mode 'lisp-mode)    lisp-font-lock-keywords)
  237.             ((eq major-mode 'emacs-lisp-mode)    lisp-font-lock-keywords)
  238. --- 575,599 ----
  239.      )
  240.     "Additional expressions to highlight in TeXinfo-mode.")
  241.   
  242. + (defconst dired-font-lock-keywords
  243. +   (let ((bn (concat "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|"
  244. +             "Aug\\|Sep\\|Oct\\|Nov\\|Dec\\) +[0-9]+ +[0-9:]+")))
  245. +     (list
  246. +      '("^  [/~].*:$" . bold-italic)                   ; Header
  247. +      (list (concat "^\\(\\([^ ].*\\)" bn "\\) \\(.*\\)$") 1 'bold) ; Marked
  248. +      (list (concat "^. +d.*" bn " \\(.*\\)$") 2 'bold)           ; Subdirs
  249. +      (list (concat "^. +l.*" bn " \\(.*\\)$") 2 'italic)       ; Links
  250. +      (cons (concat "^. +-..[xsS]......\\|"    ; Regular files with executable
  251. +            "^. +-.....[xsS]...\\|"    ; or setuid/setgid bits set
  252. +            "^. +-........[xsS]")
  253. +        'bold)
  254. +      ))
  255. +   "Expressions to highlight in Dired buffers.")
  256. + 
  257.   
  258.   ;; Kludge
  259.   (defun dummy-font-lock-mode-hook ()
  260. !   "Sets font-lock-keywords to something appropriate for this mode."
  261.     (setq font-lock-keywords
  262.       (cond ((eq major-mode 'lisp-mode)    lisp-font-lock-keywords)
  263.             ((eq major-mode 'emacs-lisp-mode)    lisp-font-lock-keywords)
  264. ***************
  265. *** 540,545 ****
  266.             ((eq major-mode 'perl-mode)    perl-font-lock-keywords)
  267.             ((eq major-mode 'tex-mode)    tex-font-lock-keywords)
  268.             ((eq major-mode 'texinfo-mode)    texi-font-lock-keywords)
  269. !           (t nil))))
  270.   
  271.   (add-hook 'font-lock-mode-hook 'dummy-font-lock-mode-hook)
  272. --- 603,609 ----
  273.             ((eq major-mode 'perl-mode)    perl-font-lock-keywords)
  274.             ((eq major-mode 'tex-mode)    tex-font-lock-keywords)
  275.             ((eq major-mode 'texinfo-mode)    texi-font-lock-keywords)
  276. !           ((eq major-mode 'dired-mode)    dired-font-lock-keywords)
  277. !           (t font-lock-keywords))))
  278.   
  279.   (add-hook 'font-lock-mode-hook 'dummy-font-lock-mode-hook)
  280.  
  281.