Lines Matching +defs:default +defs:keys
58 ;; bind some dired keys. *Please* see the info pages for more details.
69 ;; dired-x-hands-off-my-keys
124 (defgroup dired-keys nil
125 "Dired keys customizations."
134 :group 'dired-keys)
139 :group 'dired-keys)
144 :group 'dired-keys)
149 :group 'dired-keys)
183 `dired-omit-extensions'. The default is to omit `.', `..', auto-save
518 (dir (if file (file-name-directory file) default-directory)))
725 ;; its `default-directory'. If nil, the old value of
726 ;; default-directory is used.
741 (or dirname (setq dirname default-directory))
743 (setq default-directory dirname) ; contains no wildcards
751 (setq dirname (expand-file-name wildcard default-directory))))
757 (directory-file-name (file-name-directory default-directory))
824 ;;; buffer-local variable `default-directory'. A Dired buffer may have
828 ;;; `default-directory', e.g., `find-file' and `compile'. This is a general
833 ;; default-directory while keeping the old information.
834 (defconst default-directory-alist
837 default-directory)))
838 "Alist of major modes and their opinion on `default-directory'.
840 nil is ignored in favor of `default-directory'.")
842 (defun dired-default-directory ()
843 "Usage like variable `default-directory'.
844 Knows about the special cases in variable `default-directory-alist'."
845 (or (eval (cdr (assq major-mode default-directory-alist)))
846 default-directory))
853 (let ((default-directory (dired-default-directory)))
940 ;;; * `dired-guess-shell-command' calls `dired-guess-default' with list of
944 ;;; `dired-guess-shell-alist-default' (in that order) for the first REGEXP
965 (defvar dired-guess-shell-alist-default
1116 `dired-guess-shell-alist-default' (to which they are prepended).
1123 to a string. If several COMMANDs are given, the first one will be the default
1141 "If non-nil, `dired-guess-shell-alist-default' and
1146 (defun dired-guess-default (files)
1151 ;; Prepend the user's alist to the default alist.
1153 dired-guess-shell-alist-default))
1184 "Ask user with PROMPT for a shell command, guessing a default from FILES."
1186 (let ((default (dired-guess-default files))
1187 default-list old-history val (failed t))
1189 (if (null default)
1196 (if (listp default)
1199 (setq default-list default
1200 default (car default)
1203 (format "{%d guesses} " (length default-list))))
1206 (setq default-list (list default)))
1211 (append default-list dired-shell-command-history)
1212 prompt (concat prompt (format "[%s] " default)))
1221 ;; If we got a return, then use default.
1223 (setq val default))
1228 ;; command doesn't get the default in the next command.
1656 (defvar dired-x-hands-off-my-keys t
1667 Binding direction based on `dired-x-hands-off-my-keys'.
1671 (setq dired-x-hands-off-my-keys
1673 (cond ((not dired-x-hands-off-my-keys)
1770 (read-file-name prompt default-directory)))