mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

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

Browse Source 
smbclient-font-lock-keywords):  Ignore value of window-system;
always define the keywords
This commit is contained in:
Peter Breton 2000-10-05 02:48:41 +00:00
parent 8a677d4fdd
commit 3478046b5a
2 changed files with 40 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
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>
* startup.el (fancy-splash-screens): Remove the code for

71
lisp/net/net-utils.el
View File

@ -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 @@ These options can be used to limit how many ICMP packets are emitted."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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