Lines Matching +defs:pending +defs:delete
503 ;; file succeeds. Of course to delete the original version of the file
507 ;; truncated. Then, ange-ftp would delete the only remaining version of
582 ;; ange-ftp-TYPE-delete-file-entry
1095 (defvar ange-ftp-pending-error-line nil)
1580 ange-ftp-pending-error-line nil
1593 (set (make-local-variable 'ange-ftp-pending-error-line) line)
1596 (delete-process proc)
1695 (if (not (and seen-prompt ange-ftp-pending-error-line))
1700 (delete-process proc)
1702 ange-ftp-process-result-line ange-ftp-pending-error-line))))
1769 (defalias 'ange-ftp-del-tmp-name 'delete-file)
1801 (delete-process proc)
1908 (delete-process proc)
2166 ;; Must delete dead process so that new process can reuse the name.
2167 (if proc (delete-process proc))
2367 (memq cmd0 '(get delete mkdir rmdir cd)))
2695 (defvar ange-ftp-delete-file-entry-alist nil
2696 "Alist saying how to delete files on certain OS types.
2698 is a function to be used to delete a file entry for the OS TYPE.
2710 (defun ange-ftp-delete-file-entry (name &optional dir-p)
2714 ange-ftp-delete-file-entry-alist))
2715 'ange-ftp-internal-delete-file-entry)
2973 (defun ange-ftp-internal-delete-file-entry (name &optional dir-p)
3545 (defun ange-ftp-delete-file (file)
3555 (list 'delete name)
3563 (ange-ftp-delete-file-entry file))
3564 (ange-ftp-real-delete-file file))))
3908 (ange-ftp-delete-file-entry filename))
3910 (delete-file filename))))
3919 (delete-file filename))))
3928 (delete-file filename))))
4121 (defun ange-ftp-delete-directory (dir)
4149 (ange-ftp-delete-file-entry dir t))
4150 (ange-ftp-real-delete-directory dir)))
4186 (delete-file copy))
4255 (delete-file file))
4291 (delete-file file))
4357 (put 'delete-directory 'ange-ftp 'ange-ftp-delete-directory)
4365 (put 'delete-file 'ange-ftp 'ange-ftp-delete-file)
4423 (defun ange-ftp-real-delete-directory (&rest args)
4424 (ange-ftp-run-real-handler 'delete-directory args))
4439 (defun ange-ftp-real-delete-file (&rest args)
4440 (ange-ftp-run-real-handler 'delete-file args))
4715 ;; ;; gets a chance to delete it (in case of a move).
5087 (defun ange-ftp-vms-delete-file-entry (name &optional dir-p)
5089 (ange-ftp-internal-delete-file-entry name t)
5093 ;; In VMS you can't delete a file without an explicit
5107 ;; versions left. If not, then delete the
5117 (or (assq 'vms ange-ftp-delete-file-entry-alist)
5118 (setq ange-ftp-delete-file-entry-alist
5119 (cons '(vms . ange-ftp-vms-delete-file-entry)
5120 ange-ftp-delete-file-entry-alist)))
5211 ;; ;; over ftp, and we wouldn't want to delete anything
5217 ;; (delete-region (point) (match-end 0))))
5323 ;; (delete-region (point-min) (point))
5325 ;; (delete-region (point) (point-max)))
5438 ;; (delete-char 1)
6099 ;; ange-ftp-bs2000-delete-file-entry