SMB Mode for Emacs

News

Fraser McCrossan has added this to his original source. Please pick that up instead.

Download

This is just a patch to the excellent smb-mode by Fraser McCrossan for editing samba config files smb.conf inside emacs/xemacs. This version of smb-mode.el allows some simple font locking. Tested on emacs 20.x, xemacs 20.x.

Patched version v0.21 - old

Download Here

Patch for v0.21 -old

cd ~/etc/emacs/
diff -c /home/weare/etc/emacs/smb-mode.el /home/weare/etc/emacs/smb-mode.el.\~1.1\~
--- /home/weare/etc/emacs/smb-mode.el   Fri Dec 10 19:22:18 1999
+++ /home/weare/etc/emacs/smb-mode.el.~1.1~     Fri Dec 10 19:33:06 1999
@@ -1,9 +1,7 @@
-; $Id: smb-mode.el,v 1.3 1999/12/10 18:22:15 weare Exp weare $
+; $Id: smb-mode.el,v 1.1 1999/12/10 15:50:02 weare Exp $
 ; smb-mode.el, Emacs Major Mode for editing smb.conf
 ; v0.21
 ; Author: Fraser McCrossan 
-; Added to by: Johnny Weare  ; http://www.gpcr.org/johnny
-; NB this is not a version endorsed by Fraser McCrossan - use at own risk!
 ; See http://users.gtn.net/fraserm/smbmode.html for installation instructions
 ; Last updated: 16-Dec-1998
 ; Copyright (C) 1998 Fraser McCrossan
@@ -503,18 +501,9 @@
	(goto-char (point-min))
	(display-buffer buffer)))))

-;; font stuff
-(defvar smb-font-lock-keywords
-  (list
-   '("^\\(\[[a-zA-Z0-9]*\]\\)"         1 font-lock-keyword-face        t t)
-   '("^[ ]*\\([a-zA-Z0-9 ]+\\)[ ]*="   1 font-lock-variable-name-face  t t)
-   '("\\(\"[^\"\n]+\"\\)"              1 font-lock-string-face         t t)
-   '("\\(;[^\n]*\\)"                   1 font-lock-comment-face        t t))
-  "Expressions to highlight in Samba mode.")
-
-
 (defun smb-mode ()
-  "Major Mode for editing Samba's smb.conf file. Simple support for font locking.
+  "Major Mode for editing Samba's smb.conf file.
+
 \\[smb-electric-bracket] indents electrically

 \\[smb-electric-equal] indents electrically and does automatic SPC-padding
@@ -546,9 +535,6 @@
   (setq page-delimiter "^\\[.+\\]$")
   (setq indent-line-function 'smb-indent-line-flash)
   (setq comment-start smb-comment-str)
-  ;; Font lock
-  (make-local-variable 'font-lock-defaults)
-  (setq font-lock-defaults '(smb-font-lock-keywords))
   (setq outline-regexp "^ *\\[.*\\]")
   (if smb-use-outline-mode
     (progn