Lines Matching +defs:default +defs:map
59 done when setting up the default directory of a newly visited file.
123 the default for a new file created there by you.
324 (defcustom auto-save-default t
325 "Non-nil says by default do auto-saving of every file-visiting buffer."
355 The default value is set up to put the auto-save file into the
483 The meaningful values are nil and non-nil. The default is non-nil.
563 (defun read-directory-name (prompt &optional dir default-dirname mustmatch initial)
572 pre-inserted contents or if `insert-default-directory' is nil.)
577 the value of `default-directory'."
579 (setq dir default-directory))
580 (read-file-name prompt dir (or default-dirname
589 "Show the current default directory."
591 (message "Directory %s" default-directory))
628 (setq default-directory dir)
632 "Make DIR become the current buffer's default directory.
638 (list (read-directory-name "Change default directory: "
639 default-directory default-directory
702 (setq dir default-directory))
825 (let ((dir (or (file-name-directory filename) default-directory))
888 ;; Chase links in the default dir of the symlink.
908 (let ((umask (default-file-modes))
915 (set-default-file-modes ?\700)
933 (set-default-file-modes umask))))
944 (let ((default-coding (or file-name-coding-system
945 default-file-name-coding-system))
948 (if (and default-coding
949 ;; We provide the default coding only when it seems that
950 ;; the filename is correctly decoded by the default
956 (format "Recode filename %s from (default %s): "
957 filename default-coding)
958 default-coding))
962 ;; We provide the default coding only when a user is going to
963 ;; change the encoding not from the default coding.
964 (if (eq from-coding default-coding)
969 (format "Recode filename %s from %s to (default %s): "
970 filename from-coding default-coding)
971 default-coding)))
974 (let* ((default-coding (or file-name-coding-system
975 default-file-name-coding-system))
977 (encoded (encode-coding-string file default-coding))
982 (default-file-name-coding-system nil)
1035 (defvar find-file-default nil
1058 (list (let ((find-file-default
1062 (lambda () (setq minibuffer-default find-file-default))
1063 (read-file-name prompt nil default-directory mustmatch)))
1070 Interactively, the default if you just type RET is the current directory,
1091 Interactively, the default if you just type RET is the current directory,
1111 Interactively, the default if you just type RET is the current directory,
1613 (and (default-value 'enable-multibyte-characters)
1658 ;; Set buffer's default directory to that of the file.
1659 (setq default-directory (file-name-directory buffer-file-name))
1757 "Called after finding a file and by the default revert function.
1794 ((file-attributes (directory-file-name default-directory))
1804 (when (and auto-save-default (not noauto))
1862 (funcall (or default-major-mode 'fundamental-mode))
2019 ("\\`/etc/\\(?:acpid?/.+\\|aliases\\(?:\\.d/.+\\)?\\|default/.+\\|group-?\\|hosts\\..+\\|inittab\\|ksysguarddrc\\|opera6rc\\|passwd-?\\|shadow-?\\|sysconfig/.+\\)\\'" . conf-mode)
2025 ("/\\.?X\\(?:default\\|resource\\|re\\)s\\>" . conf-xdefaults-mode)
2255 (assoc-default nil magic-mode-alist
2273 (assoc-default name auto-mode-alist
2279 (assoc-default name auto-mode-alist
2284 (assoc-default name auto-mode-alist
2303 (assoc-default nil magic-fallback-mode-alist
2409 default-text-properties
2432 minor-mode-map-alist
2433 minor-mode-overriding-map-alist
2443 overriding-local-map
2444 overriding-terminal-local-map
2477 (default-directory . stringp) ;; C source code
2781 * Its name ends with \"hook(s)\", \"function(s)\", \"form(s)\", \"map\",
2784 \"map-alist\", or \"bindat-spec\"."
2793 -map$\\|-map-alist$\\|-bindat-spec$" (symbol-name sym))))
2922 (setq default-directory (file-name-directory buffer-file-name))
2963 (and buffer-file-name auto-save-default
2994 the default file name but in that directory. You can also yank
2995 the default file name into the minibuffer to edit it, using \\<minibuffer-local-map>\\[next-history-element].
2997 If the buffer is not already visiting a file, the default file name
3008 (read-file-name "Write file: " default-directory
3011 default-directory)
3017 ;; use the default file name, but in that directory.
3123 (let ((umask (default-file-modes)))
3129 (set-default-file-modes ?\700)
3142 (set-default-file-modes umask)))
3220 "A function to use instead of the default `make-backup-file-name'.
3221 A value of nil gives the default `make-backup-file-name' behavior.
3312 ;; depending on default-directory.
3433 ;; "Convert FILENAME to be relative to DIRECTORY (default: `default-directory').
3435 ;; when used with that default directory as the default.
3442 ;; (expand-file-name (or directory default-directory))))
3473 "Convert FILENAME to be relative to DIRECTORY (default: `default-directory').
3475 when used with that default directory as the default.
3481 default-directory))))
3525 By default, makes the previous version into a backup file
3552 If `vc-make-backup-files' is nil, which is the default,
3747 (umask (default-file-modes))
3755 (set-default-file-modes ?\700)
3775 (set-default-file-modes umask)
3852 "ACTION-ALIST argument used in call to `map-y-or-n-p'.")
3887 (map-y-or-n-p
4031 Interactively, the default choice of directory to create
4032 is the current default directory for file names.
4037 this happens by default."
4039 (list (read-file-name "Make directory: " default-directory default-directory
4042 ;; If default-directory is a remote directory,
4062 "Function to use to revert this buffer, or nil to do the default.
4175 (let ((global-hook (default-value 'after-revert-hook))
4239 (setq-default revert-buffer-internal-hook global-hook)
4256 ;; Not just because users often use the default.
4328 (use-local-map (nconc (make-sparse-keymap) (current-local-map)))
4329 (define-key (current-local-map) "\C-c\C-c" 'recover-session-finish))
4392 (map-y-or-n-p "Recover %s? "
4547 ((file-writable-p default-directory) default-directory)
4668 relative to the current default directory, `default-directory'.
4670 default directory. However, if FULL is non-nil, they are absolute."
4713 nil default-directory nil)
4718 (or dirname (setq dirname default-directory))
4730 ;; Finishing with-output-to-temp-buffer seems to clobber default-directory.
4732 (setq default-directory
4890 The default value is designed to recognize dates and times
4953 default-file-name-coding-system))))
4958 (let ((default-directory
5128 default-file-name-coding-system
5203 If nil, the default, don't ask at all. If the value is non-nil, it should
5254 (default-directory
5258 (unhandled-file-name-directory default-directory)))
5259 default-directory))
5328 (define-key ctl-x-map "\C-f" 'find-file)
5329 (define-key ctl-x-map "\C-r" 'find-file-read-only)
5330 (define-key ctl-x-map "\C-v" 'find-alternate-file)
5331 (define-key ctl-x-map "\C-s" 'save-buffer)
5332 (define-key ctl-x-map "s" 'save-some-buffers)
5333 (define-key ctl-x-map "\C-w" 'write-file)
5334 (define-key ctl-x-map "i" 'insert-file)
5335 (define-key esc-map "~" 'not-modified)
5336 (define-key ctl-x-map "\C-d" 'list-directory)
5337 (define-key ctl-x-map "\C-c" 'save-buffers-kill-emacs)
5338 (define-key ctl-x-map "\C-q" 'toggle-read-only)
5340 (define-key ctl-x-4-map "f" 'find-file-other-window)
5341 (define-key ctl-x-4-map "r" 'find-file-read-only-other-window)
5342 (define-key ctl-x-4-map "\C-f" 'find-file-other-window)
5343 (define-key ctl-x-4-map "b" 'switch-to-buffer-other-window)
5344 (define-key ctl-x-4-map "\C-o" 'display-buffer)
5346 (define-key ctl-x-5-map "b" 'switch-to-buffer-other-frame)
5347 (define-key ctl-x-5-map "f" 'find-file-other-frame)
5348 (define-key ctl-x-5-map "\C-f" 'find-file-other-frame)
5349 (define-key ctl-x-5-map "r" 'find-file-read-only-other-frame)
5350 (define-key ctl-x-5-map "\C-o" 'display-buffer-other-frame)