aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/eshell
diff options
context:
space:
mode:
authorMark Oteiza2016-06-23 18:48:12 -0400
committerMark Oteiza2016-06-23 18:48:12 -0400
commit90d0833f24be04e4b36aabda8cae1681ae768258 (patch)
tree435ad616cf767cf2f15fc196d567fec2a6dc1773 /lisp/eshell
parentc430f7e23fc2c22f251ace4254e37dea1452dfc3 (diff)
downloademacs-90d0833f24be04e4b36aabda8cae1681ae768258.tar.gz
emacs-90d0833f24be04e4b36aabda8cae1681ae768258.zip
Remove some more face aliases obsoleted in 22.1
* lisp/eshell/em-ls.el (eshell-ls-directory-face, eshell-ls-symlink-face, eshell-ls-executable-face, eshell-ls-readonly-face, eshell-ls-unreadable-face, eshell-ls-special-face, eshell-ls-missing-face, eshell-ls-archive-face, eshell-ls-backup-face, eshell-ls-product-face, eshell-ls-clutter-face): Remove. * lisp/isearch.el (isearch-lazy-highlight-face, lazy-highlight-face): Remove. (isearch-lazy-highlight-update): Use face symbol. * lisp/net/sieve-mode.el (sieve-control-commands-face, sieve-action-commands-face, sieve-test-commands-face, sieve-tagged-arguments-face): Remove. (sieve-font-lock-keywords): Use non-obsolete faces. * lisp/progmodes/sh-script.el (sh-heredoc-face): Remove. (sh-get-indent-info, sh-prev-line): Use face symbol. * lisp/textmodes/tex-mode.el (tex-font-lock-keywords-1): Use non-obsolete face. (tex-math-face, tex-verbatim-face): Remove. (tex-font-lock-syntactic-face-function): Use face symbols.
Diffstat (limited to 'lisp/eshell')
-rw-r--r--lisp/eshell/em-ls.el14
1 files changed, 0 insertions, 14 deletions
diff --git a/lisp/eshell/em-ls.el b/lisp/eshell/em-ls.el
index cf6609ff729..8616dd2479b 100644
--- a/lisp/eshell/em-ls.el
+++ b/lisp/eshell/em-ls.el
@@ -101,46 +101,36 @@ faster and conserves more memory."
101 (((class color) (background dark)) (:foreground "SkyBlue" :weight bold)) 101 (((class color) (background dark)) (:foreground "SkyBlue" :weight bold))
102 (t (:weight bold))) 102 (t (:weight bold)))
103 "The face used for highlighting directories.") 103 "The face used for highlighting directories.")
104(define-obsolete-face-alias 'eshell-ls-directory-face
105 'eshell-ls-directory "22.1")
106 104
107(defface eshell-ls-symlink 105(defface eshell-ls-symlink
108 '((((class color) (background light)) (:foreground "Dark Cyan" :weight bold)) 106 '((((class color) (background light)) (:foreground "Dark Cyan" :weight bold))
109 (((class color) (background dark)) (:foreground "Cyan" :weight bold))) 107 (((class color) (background dark)) (:foreground "Cyan" :weight bold)))
110 "The face used for highlighting symbolic links.") 108 "The face used for highlighting symbolic links.")
111(define-obsolete-face-alias 'eshell-ls-symlink-face 'eshell-ls-symlink "22.1")
112 109
113(defface eshell-ls-executable 110(defface eshell-ls-executable
114 '((((class color) (background light)) (:foreground "ForestGreen" :weight bold)) 111 '((((class color) (background light)) (:foreground "ForestGreen" :weight bold))
115 (((class color) (background dark)) (:foreground "Green" :weight bold))) 112 (((class color) (background dark)) (:foreground "Green" :weight bold)))
116 "The face used for highlighting executables (not directories, though).") 113 "The face used for highlighting executables (not directories, though).")
117(define-obsolete-face-alias 'eshell-ls-executable-face
118 'eshell-ls-executable "22.1")
119 114
120(defface eshell-ls-readonly 115(defface eshell-ls-readonly
121 '((((class color) (background light)) (:foreground "Brown")) 116 '((((class color) (background light)) (:foreground "Brown"))
122 (((class color) (background dark)) (:foreground "Pink"))) 117 (((class color) (background dark)) (:foreground "Pink")))
123 "The face used for highlighting read-only files.") 118 "The face used for highlighting read-only files.")
124(define-obsolete-face-alias 'eshell-ls-readonly-face 'eshell-ls-readonly "22.1")
125 119
126(defface eshell-ls-unreadable 120(defface eshell-ls-unreadable
127 '((((class color) (background light)) (:foreground "Grey30")) 121 '((((class color) (background light)) (:foreground "Grey30"))
128 (((class color) (background dark)) (:foreground "DarkGrey"))) 122 (((class color) (background dark)) (:foreground "DarkGrey")))
129 "The face used for highlighting unreadable files.") 123 "The face used for highlighting unreadable files.")
130(define-obsolete-face-alias 'eshell-ls-unreadable-face
131 'eshell-ls-unreadable "22.1")
132 124
133(defface eshell-ls-special 125(defface eshell-ls-special
134 '((((class color) (background light)) (:foreground "Magenta" :weight bold)) 126 '((((class color) (background light)) (:foreground "Magenta" :weight bold))
135 (((class color) (background dark)) (:foreground "Magenta" :weight bold))) 127 (((class color) (background dark)) (:foreground "Magenta" :weight bold)))
136 "The face used for highlighting non-regular files.") 128 "The face used for highlighting non-regular files.")
137(define-obsolete-face-alias 'eshell-ls-special-face 'eshell-ls-special "22.1")
138 129
139(defface eshell-ls-missing 130(defface eshell-ls-missing
140 '((((class color) (background light)) (:foreground "Red" :weight bold)) 131 '((((class color) (background light)) (:foreground "Red" :weight bold))
141 (((class color) (background dark)) (:foreground "Red" :weight bold))) 132 (((class color) (background dark)) (:foreground "Red" :weight bold)))
142 "The face used for highlighting non-existent file names.") 133 "The face used for highlighting non-existent file names.")
143(define-obsolete-face-alias 'eshell-ls-missing-face 'eshell-ls-missing "22.1")
144 134
145(defcustom eshell-ls-archive-regexp 135(defcustom eshell-ls-archive-regexp
146 (concat "\\.\\(t\\(a[rz]\\|gz\\)\\|arj\\|lzh\\|" 136 (concat "\\.\\(t\\(a[rz]\\|gz\\)\\|arj\\|lzh\\|"
@@ -155,7 +145,6 @@ files."
155 '((((class color) (background light)) (:foreground "Orchid" :weight bold)) 145 '((((class color) (background light)) (:foreground "Orchid" :weight bold))
156 (((class color) (background dark)) (:foreground "Orchid" :weight bold))) 146 (((class color) (background dark)) (:foreground "Orchid" :weight bold)))
157 "The face used for highlighting archived and compressed file names.") 147 "The face used for highlighting archived and compressed file names.")
158(define-obsolete-face-alias 'eshell-ls-archive-face 'eshell-ls-archive "22.1")
159 148
160(defcustom eshell-ls-backup-regexp 149(defcustom eshell-ls-backup-regexp
161 "\\(\\`\\.?#\\|\\(\\.bak\\|~\\)\\'\\)" 150 "\\(\\`\\.?#\\|\\(\\.bak\\|~\\)\\'\\)"
@@ -166,7 +155,6 @@ files."
166 '((((class color) (background light)) (:foreground "OrangeRed")) 155 '((((class color) (background light)) (:foreground "OrangeRed"))
167 (((class color) (background dark)) (:foreground "LightSalmon"))) 156 (((class color) (background dark)) (:foreground "LightSalmon")))
168 "The face used for highlighting backup file names.") 157 "The face used for highlighting backup file names.")
169(define-obsolete-face-alias 'eshell-ls-backup-face 'eshell-ls-backup "22.1")
170 158
171(defcustom eshell-ls-product-regexp 159(defcustom eshell-ls-product-regexp
172 "\\.\\(elc\\|o\\(bj\\)?\\|a\\|lib\\|res\\)\\'" 160 "\\.\\(elc\\|o\\(bj\\)?\\|a\\|lib\\|res\\)\\'"
@@ -179,7 +167,6 @@ ought to be recreatable if they are deleted."
179 '((((class color) (background light)) (:foreground "OrangeRed")) 167 '((((class color) (background light)) (:foreground "OrangeRed"))
180 (((class color) (background dark)) (:foreground "LightSalmon"))) 168 (((class color) (background dark)) (:foreground "LightSalmon")))
181 "The face used for highlighting files that are build products.") 169 "The face used for highlighting files that are build products.")
182(define-obsolete-face-alias 'eshell-ls-product-face 'eshell-ls-product "22.1")
183 170
184(defcustom eshell-ls-clutter-regexp 171(defcustom eshell-ls-clutter-regexp
185 "\\(^texput\\.log\\|^core\\)\\'" 172 "\\(^texput\\.log\\|^core\\)\\'"
@@ -192,7 +179,6 @@ really need to stick around for very long."
192 '((((class color) (background light)) (:foreground "OrangeRed" :weight bold)) 179 '((((class color) (background light)) (:foreground "OrangeRed" :weight bold))
193 (((class color) (background dark)) (:foreground "OrangeRed" :weight bold))) 180 (((class color) (background dark)) (:foreground "OrangeRed" :weight bold)))
194 "The face used for highlighting junk file names.") 181 "The face used for highlighting junk file names.")
195(define-obsolete-face-alias 'eshell-ls-clutter-face 'eshell-ls-clutter "22.1")
196 182
197(defsubst eshell-ls-filetype-p (attrs type) 183(defsubst eshell-ls-filetype-p (attrs type)
198 "Test whether ATTRS specifies a directory." 184 "Test whether ATTRS specifies a directory."