Re: Non-nil f-l-syntactic-keywords trashes f-l-keywords.

Already cc'd to XEmacs Patches; reply-to set to xemacs-beta and OP. Alan> The following patch fixes it (at least, it does for me :-). Alan> I had a quick peep at the latest (about a week ago) CVS Alan> version. The bug hadn't been fixed there yet, either. I'll take a look at it, but not for a few days. It's already way past my bedtime here.... For future reference, patches which you have analyzed, tested, and seem ready for prime time, can go to xemacs-patches(a)xemacs.org. 2002-09-20 Alan Mackenzie <acm(a)muc.de&gt; * font-lock.el: Remove spurious setq from font-lock-compile-keywords. *** font-lock-21.4.4.el Fri Sep 20 18:00:32 2002 --- font-lock.el Fri Sep 20 19:53:08 2002 *************** *** 1597,1603 **** (let* ((case-fold-search font-lock-keywords-case-fold-search) (keywords (cdr (if (eq (car-safe font-lock-keywords) t) font-lock-keywords ! (font-lock-compile-keywords)))) (bufname (buffer-name)) (progress 5) (old-progress 5) (iter 0) --- 1597,1604 ---- (let* ((case-fold-search font-lock-keywords-case-fold-search) (keywords (cdr (if (eq (car-safe font-lock-keywords) t) font-lock-keywords ! (setq font-lock-keywords ! (font-lock-compile-keywords font-lock-keywords))))) (bufname (buffer-name)) (progress 5) (old-progress 5) (iter 0) *************** *** 1671,1684 ****  ;; Various functions. ! (defun font-lock-compile-keywords (&optional keywords) ! ;; Compile `font-lock-keywords' into the form (t KEYWORD ...) where KEYWORD ! ;; is the (MATCHER HIGHLIGHT ...) shown in the variable's doc string. ! (let ((keywords (or keywords font-lock-keywords))) ! (setq font-lock-keywords ! (if (eq (car-safe keywords) t) ! keywords ! (cons t (mapcar 'font-lock-compile-keyword keywords)))))) (defun font-lock-compile-keyword (keyword) (cond ((nlistp keyword) ; Just MATCHER --- 1672,1685 ----  ;; Various functions. ! (defun font-lock-compile-keywords (keywords) ! ;; Compile `font-lock-\(syntactic-\)?keywords' into the form (t KEYWORD ...) ! ;; where KEYWORD is the (MATCHER HIGHLIGHT ...) shown in the variable's doc ! ;; string. ! ;; (setq font-lock-keywords NO! NO! KEYWORDS is sometimes f-l-syntactic-k ! (if (eq (car-safe keywords) t) ! keywords ! (cons t (mapcar 'font-lock-compile-keyword keywords)))) (defun font-lock-compile-keyword (keyword) (cond ((nlistp keyword) ; Just MATCHER -- Institute of Policy and Planning Sciences http://turnbull.sk.tsukuba.ac.jp University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN My nostalgia for Icon makes me forget about any of the bad things. I don't have much nostalgia for Perl, so its faults I remember. Scott Gilbert c.l.py