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

[Juanma Barranquero]

Index: emacs/lisp/fast-lock.el
diff -c emacs/lisp/fast-lock.el:1.26 emacs/lisp/fast-lock.el:1.27
*** emacs/lisp/fast-lock.el:1.26        Tue Jan 14 17:36:40 2003
--- emacs/lisp/fast-lock.el     Fri Jan 31 10:16:02 2003
***************
*** 34,40 ****
  ;; See also the lazy-lock package.  (But don't use the two at the same time!)
  
  ;; Installation:
! ;; 
  ;; Put in your ~/.emacs:
  ;;
  ;; (setq font-lock-support-mode 'fast-lock-mode)
--- 34,40 ----
  ;; See also the lazy-lock package.  (But don't use the two at the same time!)
  
  ;; Installation:
! ;;
  ;; Put in your ~/.emacs:
  ;;
  ;; (setq font-lock-support-mode 'fast-lock-mode)
***************
*** 67,73 ****
  ;; 1.01--2.00: complete rewrite---not worth the space to document
  ;; - Changed structure of text properties cache and threw out file mod checks
  ;; 2.00--2.01:
! ;; - Made `condition-case' forms understand `quit'. 
  ;; - Made `fast-lock' require `font-lock'
  ;; - Made `fast-lock-cache-name' chase links (from Ben Liblit)
  ;; 2.01--3.00:
--- 67,73 ----
  ;; 1.01--2.00: complete rewrite---not worth the space to document
  ;; - Changed structure of text properties cache and threw out file mod checks
  ;; 2.00--2.01:
! ;; - Made `condition-case' forms understand `quit'.
  ;; - Made `fast-lock' require `font-lock'
  ;; - Made `fast-lock-cache-name' chase links (from Ben Liblit)
  ;; 2.01--3.00:
***************
*** 230,236 ****
   ;;
   ;; We use this for compatibility with a future Emacs.
   (or (fboundp 'defcustom)
!      (defmacro defcustom (symbol value doc &rest args) 
         `(defvar ,symbol ,value ,doc))))
  
  ;(defun fast-lock-submit-bug-report ()
--- 230,236 ----
   ;;
   ;; We use this for compatibility with a future Emacs.
   (or (fboundp 'defcustom)
!      (defmacro defcustom (symbol value doc &rest args)
         `(defvar ,symbol ,value ,doc))))
  
  ;(defun fast-lock-submit-bug-report ()
***************
*** 553,559 ****
        (concat buffer-file-name ".flc")
      (let* ((bufile (expand-file-name buffer-file-truename))
           (chars-alist
!           (if (memq system-type '(emx windows-nt))
                '((?/ . (?#)) (?# . (?# ?#)) (?: . (?\;)) (?\; . (?\; ?\;)))
              '((?/ . (?#)) (?# . (?# ?#)))))
           (mapchars
--- 553,559 ----
        (concat buffer-file-name ".flc")
      (let* ((bufile (expand-file-name buffer-file-truename))
           (chars-alist
!           (if (memq system-type '(emx windows-nt cygwin))
                '((?/ . (?#)) (?# . (?# ?#)) (?: . (?\;)) (?\; . (?\; ?\;)))
              '((?/ . (?#)) (?# . (?# ?#)))))
           (mapchars
***************
*** 807,813 ****
            (font-lock-set-face (nth 0 regions) (nth 1 regions) face)
            (setq regions (nthcdr 2 regions)))
          (setq face-properties (cdr face-properties))))
!       ;; XEmacs does not support the `syntax-table' text property.      
        ))
    ;;
    ;; XEmacs 19.12 font-lock.el's `font-lock-fontify-buffer' runs a hook.
--- 807,813 ----
            (font-lock-set-face (nth 0 regions) (nth 1 regions) face)
            (setq regions (nthcdr 2 regions)))
          (setq face-properties (cdr face-properties))))
!       ;; XEmacs does not support the `syntax-table' text property.
        ))
    ;;
    ;; XEmacs 19.12 font-lock.el's `font-lock-fontify-buffer' runs a hook.