Commit 3478046b authored by Peter Breton's avatar Peter Breton
Browse files

(nslookup-font-lock-keywords, ftp-font-lock-keywords,

smbclient-font-lock-keywords):  Ignore value of window-system;
always define the keywords
parent 8a677d4f
2000-10-04 Peter Breton <pbreton@ne.mediaone.net>
* net/net-utils.el (nslookup-font-lock-keywords)
(ftp-font-lock-keywords, smbclient-font-lock-keywords):
Ignore the value of wqindow-system; always define keywords
2000-10-05 Kenichi Handa <handa@etl.go.jp> 2000-10-05 Kenichi Handa <handa@etl.go.jp>
* startup.el (fancy-splash-screens): Remove the code for * startup.el (fancy-splash-screens): Remove the code for
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;; Author: Peter Breton <pbreton@cs.umb.edu> ;; Author: Peter Breton <pbreton@cs.umb.edu>
;; Created: Sun Mar 16 1997 ;; Created: Sun Mar 16 1997
;; Keywords: network communications ;; 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. ;; This file is part of GNU Emacs.
...@@ -227,54 +227,51 @@ These options can be used to limit how many ICMP packets are emitted." ...@@ -227,54 +227,51 @@ These options can be used to limit how many ICMP packets are emitted."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst nslookup-font-lock-keywords (defconst nslookup-font-lock-keywords
(and window-system (progn
(progn (require 'font-lock)
(require 'font-lock) (list
(list (list nslookup-prompt-regexp 0 font-lock-reference-face)
(list nslookup-prompt-regexp 0 font-lock-reference-face) (list "^[A-Za-z0-9 _]+:" 0 font-lock-type-face)
(list "^[A-Za-z0-9 _]+:" 0 font-lock-type-face) (list "\\<\\(SOA\\|NS\\|MX\\|A\\|CNAME\\)\\>"
(list "\\<\\(SOA\\|NS\\|MX\\|A\\|CNAME\\)\\>" 1 font-lock-keyword-face)
1 font-lock-keyword-face) ;; Dotted quads
;; Dotted quads (list
(list (mapconcat 'identity
(mapconcat 'identity (make-list 4 "[0-9]+")
(make-list 4 "[0-9]+") "\\.")
"\\.") 0 font-lock-variable-name-face)
0 font-lock-variable-name-face) ;; Host names
;; Host names (list
(list (let ((host-expression "[-A-Za-z0-9]+"))
(let ((host-expression "[-A-Za-z0-9]+")) (concat
(concat (mapconcat 'identity
(mapconcat 'identity (make-list 2 host-expression)
(make-list 2 host-expression) "\\.")
"\\.") "\\(\\." host-expression "\\)*")
"\\(\\." host-expression "\\)*") )
) 0 font-lock-variable-name-face)
0 font-lock-variable-name-face) ))
))) "Expressions to font-lock for nslookup.")
"Expressions to font-lock for nslookup.")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; FTP goodies ;; FTP goodies
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst ftp-font-lock-keywords (defconst ftp-font-lock-keywords
(and window-system (progn
(progn (require 'font-lock)
(require 'font-lock) (list
(list (list ftp-prompt-regexp 0 font-lock-reference-face))))
(list ftp-prompt-regexp 0 font-lock-reference-face)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; smbclient goodies ;; smbclient goodies
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst smbclient-font-lock-keywords (defconst smbclient-font-lock-keywords
(and window-system (progn
(progn (require 'font-lock)
(require 'font-lock) (list
(list (list smbclient-prompt-regexp 0 font-lock-reference-face))))
(list smbclient-prompt-regexp 0 font-lock-reference-face)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Utility functions ;; Utility functions
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment