Re: allow cperl array and hash faces

Sean> cperl-mode.el currently does not allow array and hash faces Sean> to be used . The following line removes the initialization: Sean> (not cperl-xemacs-p) ; not yet as of XEmacs 19.12 Sean> If I comment this out in 21.1.11 or 21.1.12, everything Sean> works fine (I also removed the default lightyellow2 Sean> background). Seems cool. I'll commit this unless anyone objects. Thanks for the patch! Adrian Sean> Sean Sean> 2000-08-07 Sean MacLennan <seanm(a)storm.ca&gt; Sean> * cperl-mode.el (cperl-init-faces): Allow XEmacs support of array Sean> and hash faces. Sean> --- lisp/prog-modes/cperl-mode.el.orig Mon Aug 7 15:41:19 2000 Sean> +++ lisp/prog-modes/cperl-mode.el Mon Aug 7 16:30:07 2000 Sean> ＠＠ -1596,7 +1596,7 ＠＠ Sean> (((class grayscale) (background dark)) Sean> (:foreground "Gray80" :bold t)) Sean> (((class color) (background light)) Sean> - (:foreground "Blue" :background "lightyellow2" :bold t)) Sean> + (:foreground "Blue" :bold t)) Sean> (((class color) (background dark)) Sean> (:foreground "yellow" :background (, cperl-dark-background) :bold t)) Sean> (t (:bold t)))) Sean> ＠＠ -1609,7 +1609,7 ＠＠ Sean> (((class grayscale) (background dark)) Sean> (:foreground "Gray80" :bold t :italic t)) Sean> (((class color) (background light)) Sean> - (:foreground "Red" :background "lightyellow2" :bold t :italic t)) Sean> + (:foreground "Red" :bold t :italic t)) Sean> (((class color) (background dark)) Sean> (:foreground "Red" :background (, cperl-dark-background) :bold t :italic t)) Sean> (t (:bold t :italic t)))) Sean> ＠＠ -5799,7 +5799,7 ＠＠ Sean> (setq Sean> t-font-lock-keywords-1 Sean> (and (fboundp 'turn-on-font-lock) ; Check for newer font-lock Sean> - (not cperl-xemacs-p) ; not yet as of XEmacs 19.12 Sean> + ;; SAM (not cperl-xemacs-p) ; not yet as of XEmacs 19.12 Sean> '( Sean> ("\\(\\([＠%]\\|\$#\\)[a-zA-Z_:][a-zA-Z0-9_:]*\\)" 1 Sean> (if (eq (char-after (match-beginning 2)) ?%) Sean> --