From xemacs-m  Fri Feb 21 16:32:42 1997
Received: from CNRI.Reston.VA.US (CNRI.Reston.VA.US [132.151.1.1])
	by xemacs.org (8.8.5/8.8.5) with SMTP id QAA02851
	for <xemacs-beta@xemacs.org>; Fri, 21 Feb 1997 16:32:38 -0600 (CST)
Received: from newcnri.cnri.reston.va.us by CNRI.Reston.VA.US id aa25419;
          21 Feb 97 17:34 EST
Received: from anthem.CNRI.Reston.Va.US by newcnri.CNRI.Reston.Va.US (SMI-8.6/SMI-SVR4)
	id RAA29262; Fri, 21 Feb 1997 17:34:02 -0500
Received: by anthem.CNRI.Reston.Va.US (SMI-8.6/SMI-SVR4)
	id RAA01124; Fri, 21 Feb 1997 17:34:01 -0500
Date: Fri, 21 Feb 1997 17:34:01 -0500
Message-Id: <199702212234.RAA01124@anthem.CNRI.Reston.Va.US>
From: "Barry A. Warsaw" <bwarsaw@anthem.cnri.reston.va.us>
MIME-Version: 1.0
Content-Type: multipart/mixed;
	boundary="bgMXlH4adfoHnL2Hvo18VH14CKwuI2MBK/PClcmH"
Content-Transfer-Encoding: 7bit
To: xemacs-beta@xemacs.org
Subject: xrdb-mode.el 1.15 -> 1.17
Reply-To: tools-help@python.org
X-Attribution: BAW
X-Oblique-Strategy: Ghost echoes
X-WWW-Homepage: http://www.python.org/~bwarsaw


--bgMXlH4adfoHnL2Hvo18VH14CKwuI2MBK/PClcmH
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit


Here's a patch from 1.15 to 1.17 of xrdb-mode.el.  I've added
font-lock support in the form of two faces xrdb-option-name-face and
xrdb-option-value-face.  See if you like it.

As usual, the entire file is available from

    <http://www.python.org/ftp/emacs/>

-Barry

--bgMXlH4adfoHnL2Hvo18VH14CKwuI2MBK/PClcmH
Content-Type: text/plain
Content-Description: xrdb-mode.el patch 1.15 -> 1.17
Content-Disposition: inline;
	filename="p2"
Content-Transfer-Encoding: 7bit

*** xrdb-mode.el	1997/02/17 16:22:06	1.15
--- xrdb-mode.el	1997/02/21 22:29:04
***************
*** 4,9 ****
  ;; Maintainer:    tools-help@python.org
  ;; Created:       May 1994
! ;; Version:       1.15
! ;; Last Modified: 1997/02/17 16:22:06
  ;; Keywords:      data languages
  
--- 4,9 ----
  ;; Maintainer:    tools-help@python.org
  ;; Created:       May 1994
! ;; Version:       1.17
! ;; Last Modified: 1997/02/21 22:28:59
  ;; Keywords:      data languages
  
***************
*** 338,341 ****
--- 338,362 ----
  
  
+ ;; faces and font-locking
+ (eval-when-compile
+   (require 'font-lock))
+ 
+ (make-face 'xrdb-option-name-face)
+ (make-face 'xrdb-option-value-face)
+ (or (face-differs-from-default-p 'xrdb-option-name-face)
+     (copy-face 'font-lock-keyword-face 'xrdb-option-name-face))
+ (or (face-differs-from-default-p 'xrdb-option-value-face)
+     (copy-face 'font-lock-string-face 'xrdb-option-value-face))
+ 
+ (defvar xrdb-font-lock-keywords
+   (list '("^[ \t]*\\([^\n:]*:\\)[ \t]*\\(.*\\)$"
+ 	  (1 xrdb-option-name-face)
+ 	  (2 xrdb-option-value-face)))
+   "Additional expressions to highlight in Xrdb mode.")
+ 
+ (put 'xrdb-mode 'font-lock-defaults '(xrdb-font-lock-keywords nil))
+ 
+ 
+ 
  ;; commands
  (defun xrdb-region-goal-column ()
***************
*** 362,366 ****
  ;; submitting bug reports
  
! (defconst xrdb-version "1.15"
    "xrdb-mode version number.")
  
--- 383,387 ----
  ;; submitting bug reports
  
! (defconst xrdb-version "1.17"
    "xrdb-mode version number.")
  

--bgMXlH4adfoHnL2Hvo18VH14CKwuI2MBK/PClcmH--

