Lines Matching +defs:find +defs:face
306 '((t (:inherit font-lock-type-face)))
310 (defvar dired-header-face 'dired-header
314 '((t (:inherit font-lock-constant-face)))
318 (defvar dired-mark-face 'dired-mark
322 '((t (:inherit font-lock-warning-face)))
326 (defvar dired-marked-face 'dired-marked
330 '((t (:inherit font-lock-warning-face)))
334 (defvar dired-flagged-face 'dired-flagged
338 '((t (:inherit font-lock-comment-face)))
342 (defvar dired-warning-face 'dired-warning
346 '((t (:inherit font-lock-function-name-face)))
350 (defvar dired-directory-face 'dired-directory
354 '((t (:inherit font-lock-keyword-face)))
358 (defvar dired-symlink-face 'dired-symlink
366 (defvar dired-ignored-face 'dired-ignored
373 (list dired-subdir-regexp '(1 dired-header-face))
376 (list dired-re-mark '(0 dired-mark-face))
385 '(".+" (dired-move-to-filename) nil (0 dired-marked-face)))
389 '(".+" (dired-move-to-filename) nil (0 dired-flagged-face)))
398 ;;; '(1 dired-warning-face)
399 ;;; '(".+" (dired-move-to-filename) nil (0 dired-warning-face)))
406 '(1 dired-warning-face))
409 '(1 dired-warning-face))
413 '(".+" (dired-move-to-filename) nil (0 dired-directory-face)))
417 '(".+" (dired-move-to-filename) nil (0 dired-symlink-face)))
421 ;; It is quicker to first find just an extension, then go back to the
424 '(".+" (dired-move-to-filename) nil (0 dired-ignored-face))))
438 (unless (get-text-property (1- (point)) 'mouse-face)
440 nil (0 dired-ignored-face))))
494 If DISTINGUISH-ONE-MARKED is non-nil, then if we find just one marked file,
556 If DISTINGUISH-ONE-MARKED is non-nil, then if we find just one marked file,
641 (if find-file-visit-truename
682 ;; The user can type `g' easily, and it is more consistent with find-file.
687 ;; like find-file does.
688 ;; Optional argument MODE is passed to dired-find-buffer-nocreate,
699 (setq buffer (dired-find-buffer-nocreate dirname mode)
749 (defun dired-find-buffer-nocreate (dirname &optional mode)
762 dired-directory ;; nil during find-alternate-file
915 ;; Let's find the distance to the alignment-point (either
1024 '(mouse-face highlight
1135 (let ((handler (find-file-name-handler dir 'dired-uncache)))
1147 (define-key map [mouse-2] 'dired-mouse-find-file-other-window)
1148 (define-key map [follow-link] 'mouse-face)
1217 (define-key map "a" 'dired-find-alternate-file)
1219 (define-key map "e" 'dired-find-file)
1220 (define-key map "f" 'dired-find-file)
1221 (define-key map "\C-m" 'dired-advertised-find-file)
1230 (define-key map "o" 'dired-find-file-other-window)
1351 (define-key map [menu-bar immediate find-file-other-window]
1352 '(menu-item "Find in Other Window" dired-find-file-other-window
1354 (define-key map [menu-bar immediate find-file]
1355 '(menu-item "Find This File" dired-find-file
1568 Type \\[dired-advertised-find-file] to Find the current line's file
1570 Type \\[dired-find-file-other-window] to find file or dired directory in Other window.
1732 (defalias 'dired-advertised-find-file 'dired-find-file)
1733 (defun dired-find-file ()
1736 ;; Bind `find-file-run-dired' so that the command works on directories
1738 (let ((find-file-run-dired t))
1739 (find-file (dired-get-file-for-visit))))
1741 (defun dired-find-alternate-file ()
1745 (find-alternate-file (dired-get-file-for-visit)))
1747 ;;;###autoload (put 'dired-find-alternate-file 'disabled t)
1749 (defun dired-mouse-find-file-other-window (event)
1768 (find-file-other-window (file-name-sans-versions file t)))))
1782 (defun dired-find-file-other-window ()
1785 (find-file-other-window (dired-get-file-for-visit)))
1790 (display-buffer (find-file-noselect (dired-get-file-for-visit))))
1812 ;; Get rid of the mouse-face property that file names have.
1847 (let ((handler (find-file-name-handler file nil)))
1858 (let ((handler (find-file-name-handler file nil)))
1933 ;; Ha! There *is* a file. Our regexp-from-hell just failed to find it.
2284 ;; either inserts "?" or "\\007" into the buffer, so we won't find
2638 '(mouse-face nil help-echo nil)))
3030 Thus, use \\[backward-page] to find the beginning of a group of errors."