diff options
Diffstat (limited to 'lisp/dired.el')
| -rw-r--r-- | lisp/dired.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index d263f0b3044..74e6876fd28 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -335,7 +335,9 @@ Subexpression 2 must end right before the \\n or \\r.") "Face name used for flagged files.") (defface dired-warning - '((t (:inherit font-lock-comment-face))) + ;; Inherit from font-lock-warning-face since with min-colors 8 + ;; font-lock-comment-face is not colored any more. + '((t (:inherit font-lock-warning-face))) "Face used to highlight a part of a buffer that needs user attention." :group 'dired-faces :version "22.1") @@ -3336,7 +3338,7 @@ Ask means pop up a menu for the user to select one of copy, move or link." (dired dired-dir) ;; The following elements of `desktop-buffer-misc' are the keys ;; from `dired-subdir-alist'. - (mapcar 'dired-maybe-insert-subdir (cdr desktop-buffer-misc)) + (mapc 'dired-maybe-insert-subdir (cdr desktop-buffer-misc)) (current-buffer)) (message "Desktop: Directory %s no longer exists." dir) (when desktop-missing-file-warning (sit-for 1)) |