Mercurial > emacs

changeset 32158:b048135b76bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(nslookup-font-lock-keywords, ftp-font-lock-keywords, smbclient-font-lock-keywords): Ignore value of window-system; always define the keywords
author Peter Breton <pbreton@attbi.com>
date Thu, 05 Oct 2000 02:45:14 +0000
parents c3d137c056d1
children 37dfd66f0cd2
files lisp/net/net-utils.el
diffstat 1 files changed, 34 insertions(+), 37 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/net-utils.el	Thu Oct 05 02:17:22 2000 +0000
+++ b/lisp/net/net-utils.el	Thu Oct 05 02:45:14 2000 +0000
@@ -3,7 +3,7 @@
 ;; Author:  Peter Breton <pbreton@cs.umb.edu>
 ;; Created: Sun Mar 16 1997
 ;; Keywords: network communications
-;; Time-stamp: <2000-10-04 01:32:16 pbreton>
+;; Time-stamp: <2000-10-04 22:39:05 pbreton>
 
 ;; This file is part of GNU Emacs.
 
@@ -227,54 +227,51 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defconst nslookup-font-lock-keywords
-  (and window-system
-       (progn
-	 (require 'font-lock)
-	 (list
-	  (list nslookup-prompt-regexp 0 font-lock-reference-face)
-	  (list "^[A-Za-z0-9 _]+:"     0 font-lock-type-face)
-	  (list "\\<\\(SOA\\|NS\\|MX\\|A\\|CNAME\\)\\>"
-		1 font-lock-keyword-face)
-	  ;; Dotted quads
-	  (list
-	   (mapconcat 'identity
-		      (make-list 4 "[0-9]+")
-		      "\\.")
-	   0 font-lock-variable-name-face)
-	  ;; Host names
-	  (list
-	   (let ((host-expression "[-A-Za-z0-9]+"))
-	     (concat
-	      (mapconcat 'identity
-			 (make-list 2 host-expression)
-			 "\\.")
-	      "\\(\\." host-expression "\\)*")
-	     )
-	   0 font-lock-variable-name-face)
-	  )))
-	 "Expressions to font-lock for nslookup.")
+  (progn
+    (require 'font-lock)
+    (list
+     (list nslookup-prompt-regexp 0 font-lock-reference-face)
+     (list "^[A-Za-z0-9 _]+:"     0 font-lock-type-face)
+     (list "\\<\\(SOA\\|NS\\|MX\\|A\\|CNAME\\)\\>"
+	   1 font-lock-keyword-face)
+     ;; Dotted quads
+     (list
+      (mapconcat 'identity
+		 (make-list 4 "[0-9]+")
+		 "\\.")
+      0 font-lock-variable-name-face)
+     ;; Host names
+     (list
+      (let ((host-expression "[-A-Za-z0-9]+"))
+	(concat
+	 (mapconcat 'identity
+		    (make-list 2 host-expression)
+		    "\\.")
+	 "\\(\\." host-expression "\\)*")
+	)
+      0 font-lock-variable-name-face)
+     ))
+  "Expressions to font-lock for nslookup.")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; FTP goodies
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defconst ftp-font-lock-keywords
-  (and window-system
-       (progn
-	 (require 'font-lock)
-	 (list
-	  (list ftp-prompt-regexp 0 font-lock-reference-face)))))
+  (progn
+    (require 'font-lock)
+    (list
+     (list ftp-prompt-regexp 0 font-lock-reference-face))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; smbclient goodies
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defconst smbclient-font-lock-keywords
-  (and window-system
-       (progn
-	 (require 'font-lock)
-	 (list
-	  (list smbclient-prompt-regexp 0 font-lock-reference-face)))))
+  (progn
+    (require 'font-lock)
+    (list
+     (list smbclient-prompt-regexp 0 font-lock-reference-face))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Utility functions