Lines Matching +defs:dired +defs:mode +defs:map
1 ;;; -*- mode: Emacs-Lisp; coding: iso-2022-7bit; -*-
983 (concat "\\(" "preserving times.*" "\\|" "set mode" "\\)" ":\\s-*"
1802 map {(substr(unpack(q(B8), chr $i++), 2, 6), $_)}
1822 # by groups of 6 bits and convert back from binary to byte; then map into
1826 map($trans{$_},
1845 map {($_, substr(unpack(q(B8), chr $i++), 2, 6))}
1849 my %%bytes = map {(unpack(q(B8), chr $_), chr $_)} 0 .. 255;
1872 map $bytes{$_},
1873 ((join q(), map {$trans{$_} || q()} split //, $chunk) =~ /......../g);
1882 (defconst tramp-file-mode-type-map '((0 . "-") ; Normal file (SVID-v2 and XPG2)
1898 This is used to map a mode number to a permission string.")
1977 (dired-compress-file . tramp-handle-dired-compress-file)
1978 (dired-call-process . tramp-handle-dired-call-process)
1979 (dired-recursive-delete-directory
1980 . tramp-handle-dired-recursive-delete-directory)
2084 'emacs-lisp-mode '("\\<with-parsed-tramp-file-name\\>")))
2394 ;; ... file mode flags
2545 (defun tramp-handle-set-file-modes (filename mode)
2552 (tramp-decimal-to-octal mode)
2557 "error while changing file's mode"
2639 (tramp-mode-string-to-int
3079 ;; Set the mode.
3119 ;; Set the mode.
3261 ;; Set the mode.
3310 (defun tramp-handle-dired-recursive-delete-directory (filename)
3312 This is like `dired-recursive-delete-directory' for tramp files."
3315 ;; Code shamelessly stolen for the dired implementation and, um, hacked :)
3330 (defun tramp-handle-dired-call-process (program discard &rest arguments)
3331 "Like `dired-call-process' for tramp files."
3338 "tramp-handle-dired-call-process: Couldn't `cd %s'"
3358 (defun tramp-handle-dired-compress-file (file &rest ok-flag)
3359 "Like `dired-compress-file' for tramp files."
3361 ;; Code stolen mainly from dired-aux.el.
3367 (symbol-value 'dired-compress-file-suffixes)
3368 ;; XEmacs has `dired-compression-method-alist', which is
3369 ;; transformed into `dired-compress-file-suffixes' structure.
3375 (symbol-value 'dired-compression-method-alist))))
3393 ;; `dired-remove-file' is not defined in XEmacs
3394 (funcall (symbol-function 'dired-remove-file) file)
3405 ;; `dired-remove-file' is not defined in XEmacs
3406 (funcall (symbol-function 'dired-remove-file) file)
3418 ;; (unless (fboundp 'dired-insert-set-properties)
3419 ;; (fset 'dired-insert-set-properties 'ignore)))
3421 (eval-when-compile (require 'dired))
3422 ;; Note that dired is required at run-time, too, when it is needed.
3424 ;; `dired-insert-set-properties'.
3434 ;; grok "--dired". In the future, we should detect this on
3436 (when (string-match "^--dired\\s-+" switches)
3512 ;; (eq major-mode 'dired-mode))
3514 ;; (require 'dired)
3515 ;; (dired-insert-set-properties old-pos (point))))
3520 ;; (when (eq (symbol-function 'dired-insert-set-properties) 'ignore)
3521 ;; (fmakunbound 'dired-insert-set-properties)))
3646 ;; for `find-grep-dired' and `find-name-dired' in Emacs 22.
4227 cygwin-mount-map-drive-hook-function
4235 ;; only, if `tramp-completion-mode' is true. But this cannot be checked here
4246 cygwin-mount-map-drive-hook-function
4269 'dired-compress-file 'dired-uncache
4284 'dired-file-modtime 'dired-make-compressed-filename
4285 'dired-recursive-delete-directory 'dired-set-file-modtime
4286 'dired-shell-unhandle-file-name 'dired-uucode-file
4298 'dired-make-relative-symlink
4318 (list 'dired-call-process
4324 'dired-print-file 'dired-shell-call-process))
4352 (completion (tramp-completion-mode filename))
4356 ;; When we are in completion mode, some operations shouldn' be
4439 ;; `partial-completion-mode' is unknown in XEmacs. So we should
4441 ;; user/host name completion shall be bound to `partial-completion-mode'.
4442 (when (or (not (boundp 'partial-completion-mode))
4443 (symbol-value 'partial-completion-mode)
4458 ;; already, f.e. files kept via recentf-mode.
4461 ;; `partial-completion-mode' is active. Therefore registering of
4540 ;;; File name handler functions for completion mode
4542 (defvar tramp-completion-mode nil
4543 "If non-nil, we are in file name completion mode.")
4557 (defun tramp-completion-mode (file)
4560 (tramp-completion-mode t)
4600 ;; We need to reset `tramp-completion-mode'.
4602 (setq tramp-completion-mode t)
4667 (setq tramp-completion-mode nil)))
5085 (auto-save-mode 1)))
5524 (tramp-message 10 "'set mode' error ignored.")
6825 (defun tramp-mode-string-to-int (mode-string)
6826 "Converts a ten-letter `drwxrwxrwx'-style mode string into mode bits."
6827 (let* ((mode-chars (string-to-vector mode-string))
6828 (owner-read (aref mode-chars 1))
6829 (owner-write (aref mode-chars 2))
6830 (owner-execute-or-setid (aref mode-chars 3))
6831 (group-read (aref mode-chars 4))
6832 (group-write (aref mode-chars 5))
6833 (group-execute-or-setid (aref mode-chars 6))
6834 (other-read (aref mode-chars 7))
6835 (other-write (aref mode-chars 8))
6836 (other-execute-or-sticky (aref mode-chars 9)))
6881 Convert file mode bits to string and set virtual device number.
6883 ;; Convert file mode bits to string.
6885 (setcar (nthcdr 8 attr) (tramp-file-mode-from-int (nth 8 attr))))
6905 (defun tramp-file-mode-from-int (mode)
6906 "Turn an integer representing a file mode into an ls(1)-like string."
6907 (let ((type (cdr (assoc (logand (lsh mode -12) 15) tramp-file-mode-type-map)))
6908 (user (logand (lsh mode -6) 7))
6909 (group (logand (lsh mode -3) 7))
6910 (other (logand (lsh mode -0) 7))
6911 (suid (> (logand (lsh mode -9) 4) 0))
6912 (sgid (> (logand (lsh mode -9) 2) 0))
6913 (sticky (> (logand (lsh mode -9) 1) 0)))
6914 (setq user (tramp-file-mode-permissions user suid "s"))
6915 (setq group (tramp-file-mode-permissions group sgid "s"))
6916 (setq other (tramp-file-mode-permissions other sticky "t"))
6920 (defun tramp-file-mode-permissions (perm suid suid-text)
6922 This is used internally by `tramp-file-mode-from-int'."
6957 ;; `save-match' is in `tramp-mode-string-to-int' which calls this.
7459 ;; ;; This is needed because EFS installs (efs-dired-before-readin) into
7460 ;; ;; 'dired-before-readin-hook'. This prevents EFS from opening an FTP
7461 ;; ;; connection to help it's dired process. Not that I have any real
7462 ;; ;; idea *why* this is helpful to dired.
7653 (when (functionp 'message-mode)
7654 (funcall (symbol-function 'message-mode)))
7655 (when (functionp 'mml-mode)
7656 (funcall (symbol-function 'mml-mode) t)))
7662 (eq major-mode 'message-mode)
7663 (boundp 'mml-mode)
7664 (symbol-value 'mml-mode))
7771 ;; * Autodetect if remote `ls' groks the "--dired" switch.
7794 ;; * Avoid screen blanking when hitting `g' in dired. (Eli Tziperman)
7855 ;; ** If `partial-completion-mode' isn't loaded, "/foo:bla" tries to
7858 ;; ** Try to avoid usage of `last-input-event' in `tramp-completion-mode'.
7866 ;; ** Add a learning mode for completion. Make results persistent.
7871 ;; dired-uncache -- this will be needed when we do insert-directory caching