diff options
Diffstat (limited to 'lisp/net/tramp.el')
| -rw-r--r-- | lisp/net/tramp.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 0182248dfad..6ed67034f4e 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -861,7 +861,7 @@ Used in `tramp-make-tramp-file-name'.") (defvar tramp-prefix-regexp nil ;Initialized when defining `tramp-syntax'! "Regexp matching the very beginning of Tramp file names. -Should always start with \"^\". Derived from `tramp-prefix-format'.") +Should always start with \"^\". Derived from `tramp-prefix-format'.") (defconst tramp-method-regexp-alist '((default . "[[:alnum:]-]+") @@ -2379,7 +2379,7 @@ For definition of that list see `tramp-set-completion-function'." ;; Inodes don't exist for some file systems. Therefore we must ;; generate virtual ones. Used in `find-buffer-visiting'. The method -;; applied might be not so efficient (Ange-FTP uses hashes). But +;; applied might be not so efficient (Ange-FTP uses hashes). But ;; performance isn't the major issue given that file transfer will ;; take time. (defvar tramp-inodes 0 @@ -2908,7 +2908,7 @@ not in completion mode." ;; I misuse a little bit the `tramp-file-name' structure in order to ;; handle completion possibilities for partial methods / user names / ;; host names. Return value is a list of `tramp-file-name' structures -;; according to possible completions. If "localname" is non-nil it +;; according to possible completions. If "localname" is non-nil it ;; means there shouldn't be a completion anymore. ;; Expected results: @@ -3288,7 +3288,7 @@ User is always nil." (and (numberp ok-if-already-exists) (not (yes-or-no-p (format - "File %s already exists; make it a link anyway? " + "File %s already exists; make it a link anyway?" localname))))) (tramp-error v 'file-already-exists newname) (delete-file newname))) @@ -3463,7 +3463,7 @@ User is always nil." (or ;; Maybe there is a default value. (tramp-get-method-parameter v 'tramp-case-insensitive) - ;; There isn't. So we must check, in case there's a connection already. + ;; There isn't. So we must check, in case there's a connection already. (and (file-remote-p filename nil 'connected) (with-tramp-connection-property v "case-insensitive" (ignore-errors @@ -3694,7 +3694,7 @@ User is always nil." (yes-or-no-p (concat "Backup file on local temporary directory, " - "do you want to continue? "))))) + "do you want to continue?"))))) (tramp-error v 'file-error "Unsafe backup file name")))))) (defun tramp-handle-insert-directory @@ -3915,7 +3915,7 @@ Return nil when there is no lockfile." (yes-or-no-p (concat "Lock file on local temporary directory, " - "do you want to continue? "))))) + "do you want to continue?"))))) (tramp-error v 'file-error "Unsafe lock file name"))) ;; Do the lock. @@ -4274,13 +4274,13 @@ support symbolic links." ((eq async-shell-command-buffer 'confirm-kill-process) ;; If will kill a process, query first. (if (yes-or-no-p - "A command is running in the default buffer. Kill it? ") + "A command is running in the default buffer. Kill it?") (kill-process p) (tramp-user-error p "Shell command in progress"))) ((eq async-shell-command-buffer 'confirm-new-buffer) ;; If will create a new buffer, query first. (if (yes-or-no-p - "A command is running in the default buffer. Use a new buffer? ") + "A command is running in the default buffer. Use a new buffer?") (setq output-buffer (generate-new-buffer bname)) (tramp-user-error p "Shell command in progress"))) ((eq async-shell-command-buffer 'new-buffer) @@ -4289,7 +4289,7 @@ support symbolic links." ((eq async-shell-command-buffer 'confirm-rename-buffer) ;; If will rename the buffer, query first. (if (yes-or-no-p - "A command is running in the default buffer. Rename it? ") + "A command is running in the default buffer. Rename it?") (progn (with-current-buffer output-buffer (rename-uniquely)) @@ -4492,7 +4492,7 @@ of." (or (eq mustbenew 'excl) (not (y-or-n-p - (format "File %s exists; overwrite anyway? " filename))))) + (format "File %s exists; overwrite anyway?" filename))))) (tramp-error v 'file-already-exists filename)) (let ((file-locked (eq (file-locked-p lockname) t)) @@ -5468,7 +5468,7 @@ this file, if that variable is non-nil." (yes-or-no-p (concat "Autosave file on local temporary directory, " - "do you want to continue? "))))) + "do you want to continue?"))))) (tramp-error v 'file-error "Unsafe autosave file name")))))) (defun tramp-subst-strs-in-string (alist string) |