From xemacs-m  Mon Jun 23 08:46:08 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id IAA00964
	for <xemacs-beta@xemacs.org>; Mon, 23 Jun 1997 08:46:05 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id PAA02493; Mon, 23 Jun 1997 15:46:03 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: [PATCH] winmgr-mode
X-Attribution: Hrv
X-Face: Mie8:rOV<\c/~z{s.X4A{!?vY7{drJ([U]0O=W/<W*SMo/Mv:58:*_y~ki>xDi&N7XG
        KV^$k0m3Oe/)'e%3=$PCR&3ITUXH,cK>]bci&<qQ>Ff%x_>1`T(+M2Gg/fgndU%k*ft
        [(7._6e0n-V%|%'[c|q:;}td$#INd+;?!-V=c8Pqf}3J
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 23 Jun 1997 15:46:02 +0200
Message-ID: <kigd8pdjuud.fsf@jagor.srce.hr>
Lines: 89
X-Mailer: Gnus v5.4.59/XEmacs 20.3(beta8) - "Copenhagen"

I haven't even known we had this mode -- all because it is not
autoloaded, and it is not in auto-mode-alist.  After adding both of
these, I figured I'd customize it, too.

--- lisp/modes/winmgr-mode.el.orig	Mon Jun 23 15:23:35 1997
+++ lisp/modes/winmgr-mode.el	Mon Jun 23 15:40:49 1997
@@ -66,26 +66,31 @@
 
 
 ;;; Code:
-(defvar winmgr-mode-hook nil
-  "Hook to be run when `winmgr-mode' is entered.")
 
-(defvar winmgr-basic-offset 4
-  "*Number of spaces per indentation level.")
+(defgroup winmgr nil
+  "Generic window manager mode."
+  :tag "Window Managers"
+  :group 'languages)
+
+
+(defcustom winmgr-basic-offset 4
+  "*Number of spaces per indentation level."
+  :type 'integer
+  :group 'winmgr)
+
+(defcustom winmgr-mode-hook nil
+  "Hook to be run when `winmgr-mode' is entered."
+  :type 'hook
+  :group 'winmgr)
 
 
-;; font-lock-isms
-(defvar font-lock-m4-face 'default
-  "New face for m4 macros.")
-
-(defun winmgr-init-font-lock ()
-  ;; initialize font-lock faces for winmgr-mode
-  (condition-case nil 
-      (progn
-	(copy-face 'default   'm4-face)
-	(set-face-foreground  'm4-face "blue")
-	(set-face-background  'm4-face "white")
-	(setq font-lock-m4-face 'm4-face))
-    (error nil)))
+(defface font-lock-m4-face
+  '((((class color))
+     (:foreground "blue"))
+    (t
+     (:underline t)))
+  "Font-lock face for M4 macros."
+  :group 'winmgr)
 
 (defvar winmgr-font-lock-keywords 
   '(("^[A-Za-z]+[ \n\t]" . font-lock-function-name-face)
@@ -93,7 +98,6 @@
     ("^[A-Za-z]+(.*)" . font-lock-m4-face))
   "Default font-lock keywords.")
 
-
 
 ;; major-mode stuff
 (defvar winmgr-mode-abbrev-table nil
@@ -119,6 +123,7 @@
   )
 
 
+;;;###autoload
 (defun winmgr-mode ()
   "Major mode for editing winmgr config files."
   (interactive)
--- lisp/prim/files.el.orig	Mon Jun 23 15:37:04 1997
+++ lisp/prim/files.el	Mon Jun 23 15:38:12 1997
@@ -1221,6 +1221,8 @@
     ("[Mm]akefile\\(\\.\\|\\'\\)" . makefile-mode)
     ("\\.X\\(defaults\\|environment\\|resources\\|modmap\\)\\'" . xrdb-mode)
     ("/app-defaults/" . xrdb-mode)
+    ("\\.[^/]*wm\\'" . winmgr-mode)
+    ("\\.[^/]*wm2?rc" . winmgr-mode)
     )
 "Alist of filename patterns vs. corresponding major mode functions.
 Each element looks like (REGEXP . FUNCTION) or (REGEXP FUNCTION NON-NIL).


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
You'll notice that perl is not itself written in Perl.
                                                 -- The Perl FAQ

