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

(nslookup-font-lock-keywords): Don't condition font lock support

Browse Source 
on window-system.
(ftp-font-lock-keywords, smbclient-font-lock-keywords): Likewise.
This commit is contained in:
Eli Zaretskii 2000-08-01 10:12:00 +00:00
parent 3b5fab8756
commit 032ebb2999
2 changed files with 37 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,5 +1,9 @@
2000-08-01 Eli Zaretskii <eliz@is.elta.co.il>
* net/net-utils.el (nslookup-font-lock-keywords): Don't condition
font lock support on window-system.
(ftp-font-lock-keywords, smbclient-font-lock-keywords): Likewise.
* textmodes/ispell.el (ispell-highlight-spelling-error): Use
display-color-p, if fboundp, instead of window-system.

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

@ -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