Lines Matching +defs:local +defs:set +defs:key
46 ;; contents of that file as if it were on the local filesystem. If ange-ftp
63 ;; as needed. You can also specify a password with ange-ftp-set-passwd, or
84 ;; machines with similar hostnames have this problem then it is easier to set
114 ;; specify an account password by either calling ange-ftp-set-account, or by
116 ;; is set by either of these methods then ange-ftp will issue an ACCOUNT
138 ;; local machine has restrictions on what hosts it can access.
146 ;; 2) Set the variable 'ange-ftp-local-host-regexp' to a regular expression
147 ;; that matches hosts that can be contacted from running a local ftp
158 ;; the *same* name between the local machine and the gateway machine.
167 ;; gateway machine and the local machine.
227 ;; Set ange-ftp-local-host-regexp to a value as stated earlier on.
228 ;; Leave ange-ftp-gateway-host set to nil.
237 ;; prep.ai.mit.edu), then set this variable accordingly. This will have
253 ;; However, for some transatlantic connections I set this to 20.
256 ;; copying the file to the local machine, compressing it there, and then
260 ;; moving them through the local machine. Again, be careful when doing
267 ;; local direds. For example, I strongly recommend that you not include
272 ;; remote dired listings would take their (buffer-local) value of
284 ;; you can set the variable ange-ftp-vms-host-regexp in your .emacs file. We
337 ;; the command ange-ftp-add-mts-host. As well, you can set the variable
363 ;; ange-ftp-add-cms-host. As well, you can set the variable
384 ;; ange-ftp-set-account.
393 ;; you can set the variable ange-ftp-bs2000-host-regexp in your .emacs
446 ;; ange-ftp-set-account.
502 ;; actually checking if the local to remote transfer of the compressed
606 ;; nil = local host type, whatever that is (probably unix).
608 ;; ange-ftp-dired-host-type for local buffers.
619 ;; is set to `unix:dl'.
732 "^local:\\|^Trying\\|^125 \\|^550-\\|^221 .*oodbye\\|"
785 Files starting with this prefix need to be accessible from BOTH the local
811 ange-ftp. Use \\[ange-ftp-set-user] to change the cached values,
822 This variable is set from the `default' command in your `.netrc' file,
879 "*Name of host to use as gateway machine when local FTP isn't possible."
884 (defcustom ange-ftp-local-host-regexp ".*"
951 precedence over the local value."
958 This variable is buffer-local and will be locally overridden if the FTP client
974 "*Name of FTP program to run when accessing non-local hosts.
1035 (defun ange-ftp-hash-entry-exists-p (key tbl)
1037 (and tbl (not (eq (gethash key tbl 'unknown) 'unknown))))
1077 "Last set of args used by ange-ftp-ls.")
1089 ;; These are local variables in each FTP process buffer.
1156 (defun ange-ftp-set-user (host user)
1157 "For a given HOST, set or change the default USER."
1180 (ange-ftp-set-user host user)))))
1187 (defmacro ange-ftp-generate-passwd-key (host user)
1191 `(gethash (ange-ftp-generate-passwd-key ,host ,user)
1194 (defun ange-ftp-set-passwd (host user passwd)
1195 "For a given HOST and USER, set or change the associated PASSWORD."
1199 (puthash (ange-ftp-generate-passwd-key host user)
1212 (lambda (key value)
1213 (if (string-match "\\`[^/]*\\(/\\).*\\'" key)
1214 (let ((host (substring key 0 (match-beginning 1))))
1215 (if (and (string-equal user (substring key (match-end 1)))
1229 ;; See if default user and password set.
1235 ;; See if default user and password set from .netrc file.
1267 (ange-ftp-set-passwd host user passwd)
1275 ;; Account passwords must be either specified in the .netrc file, or set
1276 ;; manually by calling ange-ftp-set-account. For the moment, ange-ftp doesn't
1280 (defun ange-ftp-set-account (host user account)
1281 "For a given HOST and USER, set or change the associated ACCOUNT password."
1285 (puthash (ange-ftp-generate-passwd-key host user)
1291 (or (gethash (ange-ftp-generate-passwd-key host user)
1363 (ange-ftp-set-user machine login)
1364 (ange-ftp-set-passwd machine login password)
1366 (ange-ftp-set-account machine login account)))
1387 ;; We set this before actually doing it to avoid the possibility
1431 (lambda (key value)
1432 (if (string-match "\\`[^/]*\\(/\\).*\\'" key)
1433 (let ((host (substring key 0 (match-beginning 1)))
1434 (user (substring key (match-end 1))))
1490 ;; (define-key ange-ftp-tmp-keymap "\C-m" 'exit-minibuffer)
1514 (defun ange-ftp-set-buffer-mode ()
1593 (set (make-local-variable 'ange-ftp-pending-error-line) line)
1605 (defun ange-ftp-set-xfer-size (host user bytes)
1749 (not (string-match ange-ftp-local-host-regexp host)))))
1755 (not (string-match ange-ftp-local-host-regexp host)))))
1817 (set-process-query-on-exit-flag proc nil)
1818 (set-process-sentinel proc 'ange-ftp-gwp-sentinel)
1819 (set-process-filter proc 'ange-ftp-gwp-filter)
1822 (set-marker (process-mark proc) (point)))
1837 (ange-ftp-error host user "unable to set terminal modes on gateway"))
1882 (set-marker (process-mark proc) (point))
1926 (set-process-query-on-exit-flag proc nil)
1980 (set-marker (process-mark proc) (point)))
1981 (set-process-query-on-exit-flag proc nil)
1982 (set-process-sentinel proc 'ange-ftp-process-sentinel)
1983 (set-process-filter proc 'ange-ftp-process-filter)
1995 (set-process-coding-system proc 'raw-text-dos)
2010 (make-local-variable 'ange-ftp-process-string)
2012 (make-local-variable 'ange-ftp-process-busy)
2013 (make-local-variable 'ange-ftp-process-result)
2014 (make-local-variable 'ange-ftp-process-msg)
2015 (make-local-variable 'ange-ftp-process-multi-skip)
2016 (make-local-variable 'ange-ftp-process-result-line)
2017 (make-local-variable 'ange-ftp-process-continue)
2018 (make-local-variable 'ange-ftp-hash-mark-count)
2019 (make-local-variable 'ange-ftp-binary-hash-mark-size)
2020 (make-local-variable 'ange-ftp-ascii-hash-mark-size)
2021 (make-local-variable 'ange-ftp-hash-mark-unit)
2022 (make-local-variable 'ange-ftp-xfer-size)
2023 (make-local-variable 'ange-ftp-last-percent)
2028 (make-local-variable 'comint-password-prompt-regexp)
2032 (make-local-variable 'paragraph-start)
2069 (ange-ftp-set-passwd host user nil) ; reset password
2070 (ange-ftp-set-account host user nil) ; reset account
2131 (ange-ftp-set-passwd host user nil) ;reset password.
2132 (ange-ftp-set-account host user nil) ;reset account.
2153 ;; if a default value for this is set, use that value.
2264 ;; set an alist to indicate that a host is of a given type. Even with
2305 ;; cmd == 'dir "remote-name" "local-name" "ls-switches"
2346 ;; where `ls' can only take one argument: either one set of flags
2354 ;; after operating on a set of files). So we've changed
2450 (key (concat host "/" user "/~")))
2475 ;; Therefore, need to set the cache afterwards.
2515 (puthash key dir ange-ftp-expand-dir-hashtable))))
2522 key ange-ftp-expand-dir-hashtable)))
2525 (puthash key (concat "/" dir) ange-ftp-expand-dir-hashtable)
2602 (key (directory-file-name ange-ftp-this-file))
2613 (string-equal key ange-ftp-ls-cache-file)
2651 (ange-ftp-set-files
2664 (setq ange-ftp-ls-cache-file key
2850 (defun ange-ftp-set-files (directory files)
2851 "For a given DIRECTORY, set or change the associated FILES hashtable."
2909 (defvar dired-local-variables-file)
2919 (and (boundp 'dired-local-variables-file) ; in the dired-x package
2920 (stringp dired-local-variables-file)
2921 (string-equal dired-local-variables-file efile))
2998 (lambda (key val)
2999 (let ((parsed (ange-ftp-ftp-name key)))
3004 (puthash key val new-tbl))))))
3013 (defun ange-ftp-set-binary-mode (host user)
3023 (defun ange-ftp-set-ascii-mode (host user)
3069 (key (concat host "/" user "/" dir))
3070 (res (gethash key ange-ftp-expand-dir-hashtable)))
3100 (puthash key res ange-ftp-expand-dir-hashtable)))
3289 (ange-ftp-set-binary-mode host user))
3294 (ange-ftp-set-xfer-size host user (nth 7 attr))))
3308 (ange-ftp-set-ascii-mode host user)))
3311 (set-visited-file-modtime (ange-ftp-file-modtime filename))
3312 (ange-ftp-set-buffer-mode)
3314 (set-buffer-modified-p nil)))
3348 (ange-ftp-set-binary-mode host user))
3380 (ange-ftp-set-ascii-mode host user)))
3384 (set-visited-file-modtime
3617 ;; async local copy commented out for now since I don't seem to get
3622 ;; "Kludge to copy a local file and call a continuation when the copy
3635 ;; (set-process-sentinel proc 'ange-ftp-copy-file-locally-sentinel)
3638 ;; (set (make-local-variable 'copy-cont) cont))))
3669 ;; local file to local file copy?
3712 (ange-ftp-set-binary-mode f-host f-user))
3761 (ange-ftp-set-ascii-mode f-host f-user))))
3785 (ange-ftp-set-binary-mode t-host t-user))
3790 (ange-ftp-set-xfer-size t-host t-user (nth 7 attr))))
3814 ;; result from doing a local to remote copy.
3830 (ange-ftp-set-ascii-mode t-host t-user)))
3832 ;; newname was local.
3912 (defun ange-ftp-rename-local-to-remote (filename newname)
3913 "Rename local FILENAME to remote file NEWNAME."
3921 (defun ange-ftp-rename-remote-to-local (filename newname)
3922 "Rename remote file FILENAME to local file NEWNAME."
3947 (ange-ftp-rename-remote-to-local filename newname))
3949 (ange-ftp-rename-local-to-remote filename newname)
4061 ;;(define-key minibuffer-local-completion-map "\C-r" 'ange-ftp-re-read-dir)
4062 ;;(define-key minibuffer-local-must-match-map "\C-r" 'ange-ftp-re-read-dir)
4154 ;; Make a local copy of FILE and return its name.
4156 (defun ange-ftp-file-local-copy (file)
4180 (setq copy (ange-ftp-file-local-copy (car tryfiles)))
4347 (add-hook 'find-file-hook 'ange-ftp-set-buffer-mode)
4377 (put 'file-local-copy 'ange-ftp 'ange-ftp-file-local-copy)
5110 (lambda (key val)
5111 (and (string-match regexp key)
5645 ;; Have I got the filename character set right?
5769 ; (ange-ftp-set-files root root-tbl)))