diff options
| author | Mark Oteiza | 2016-06-23 18:48:12 -0400 |
|---|---|---|
| committer | Mark Oteiza | 2016-06-23 18:48:12 -0400 |
| commit | 90d0833f24be04e4b36aabda8cae1681ae768258 (patch) | |
| tree | 435ad616cf767cf2f15fc196d567fec2a6dc1773 /lisp/eshell | |
| parent | c430f7e23fc2c22f251ace4254e37dea1452dfc3 (diff) | |
| download | emacs-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.el | 14 |
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." |