Lines Matching +defs:temp +defs:directory
177 (with-temp-buffer
231 (with-temp-buffer
346 (defvar cvs-temp-buffers nil)
347 (defun cvs-temp-buffer (&optional cmd normal nosetup)
354 \(unless NOSETUP is non-nil\) and its `default-directory' will be inherited
360 (dir default-directory)
363 ((and (bufferp cvs-temp-buffer) (buffer-live-p cvs-temp-buffer))
364 cvs-temp-buffer)
366 (set (make-local-variable 'cvs-temp-buffer)
368 (eval cvs-temp-buffer-name) 'noreuse))))))
392 (add-to-list 'cvs-temp-buffers buf)
396 (setq default-directory dir)
400 (let ((lbd list-buffers-directory))
402 (when lbd (set (make-local-variable 'list-buffers-directory) lbd)))
413 (dolist (buf cvs-temp-buffers) (ignore-errors (kill-buffer buf))))
416 "Create the *cvs* buffer for directory DIR.
426 ;; look for another cvs buffer visiting the same directory
435 (or (cvs-string-prefix-p default-directory dir)
436 (cvs-string-prefix-p dir default-directory)))
437 (samedir (string= default-directory dir)))
441 ;; create-file-buffer from using directory info
446 (and (string= dir default-directory) (cvs-buffer-p)
453 (setq default-directory dir)
456 (insert "Repository : " (directory-file-name (cvs-get-cvsroot))
470 (set (make-local-variable 'list-buffers-directory) buffer-name)
471 ;;(set (make-local-variable 'cvs-temp-buffer) (cvs-temp-buffer))
476 (ignore-errors (kill-buffer cvs-temp-buffer)))
483 (let* ((dir (file-name-as-directory
487 (unless (file-directory-p dir)
488 (error "%s is not a directory" dir))
489 (unless (or noexist (file-directory-p (expand-file-name "CVS" dir))
522 (insert "pcl-cvs: descending directory " dir "\n"))
563 (let ((default-directory (cvs-expand-dir-name dir)))
795 (when (and (bufferp cvs-temp-buffer) (buffer-live-p cvs-temp-buffer))
796 (let ((proc (get-buffer-process cvs-temp-buffer)))
871 ;; remove temp messages and keep the others
919 (str (concat (file-name-as-directory (or root "/")) " || " rep)))
943 (read-directory-name "CVS Checkout Directory: "
944 nil default-directory nil)
951 (cvs-cmd-do "checkout" (or dir default-directory)
964 (list (read-directory-name prompt nil default-directory nil))))
978 "Rerun `cvs-examine' on the current directory with the default flags."
980 (cvs-examine default-directory t))
982 (defun cvs-query-directory (msg)
987 default-directory
988 (read-directory-name msg nil default-directory nil)))
993 With a prefix argument, prompt for a directory to use.
998 (interactive (list (cvs-query-directory "CVS quickdir (directory): ")))
1000 (let* ((dir (file-name-as-directory
1006 (unless (file-directory-p dir)
1007 (error "%s is not a directory" dir))
1008 (unless (file-directory-p (expand-file-name "CVS" dir))
1021 (defun cvs-examine (directory flags &optional noshow)
1025 With a prefix argument, prompt for a directory and cvs FLAGS to use.
1029 (interactive (list (cvs-query-directory "CVS Examine (directory): ")
1033 (when find-file-visit-truename (setq directory (file-truename directory)))
1034 (cvs-cmd-do "update" directory flags nil
1042 (defun cvs-update (directory flags)
1045 With a \\[universal-argument] prefix argument, prompt for a directory to use.
1050 (interactive (list (cvs-query-directory "CVS Update (directory): ")
1054 (cvs-cmd-do "update" directory flags nil
1059 (defun cvs-status (directory flags &optional noshow)
1062 With a prefix argument, prompt for a directory and cvs FLAGS to use.
1066 (interactive (list (cvs-query-directory "CVS Status (directory): ")
1070 (cvs-cmd-do "status" directory flags nil
1149 (make-local-variable 'cvs-temp-buffers))
1164 (setq check 'cvs-temp-buffer)
1165 (or (null cvs-temp-buffer)
1166 (null (buffer-live-p cvs-temp-buffer))
1167 (and (eq (with-current-buffer cvs-temp-buffer cvs-buffer) buf)
1168 (equal (with-current-buffer cvs-temp-buffer
1169 default-directory)
1170 default-directory)))
1222 If the fileinfo is a directory, all the contents of that directory are
1223 marked instead. A directory can never be marked."
1228 ;; it's a directory: let's mark all files inside
1237 ;; not a directory: just do the obvious
1358 Otherwise, if the cursor selects a directory, and IGNORE-CONTENTS is
1359 nil, return all files in it, else return just the directory.
1369 (if (file-directory-p f)
1371 'DIRCHANGE (file-name-as-directory f) "." "")
1372 (let ((dir (file-name-directory f))
1383 ;; If a directory is selected, return members, if any.
1397 If FILE is non-nil, directory entries won't be selected."
1453 (let ((buf (cvs-temp-buffer "message" 'normal 'nosetup))
1512 (let ((buf (cvs-temp-buffer "message" 'normal 'nosetup))
1563 (file-name-as-directory
1572 (let ((file (file-relative-name (directory-file-name file))) last)
1593 ((file-directory-p (cvs-fileinfo->full-name fi)) (push fi dirs))
1602 ;; setup postprocessing for the directory entries
1660 (set-buffer (cvs-temp-buffer "diff")))
1696 ;; kill the temp buffers (and their associated windows)
1842 &key (buf (cvs-temp-buffer))
1851 (let ((def-dir default-directory))
1889 SHOW indicates that CMD should be not be run in the default temp buffer and
1895 :buf (cvs-temp-buffer (when show cmd))
1913 :buf (cvs-temp-buffer "tree")
1962 If OLD-DIR is non-nil, then this is a directory that we don't want
2004 (with-temp-buffer
2029 (let ((odir default-directory))
2030 (setq default-directory
2033 (display-buffer (find-file-noselect default-directory)))
2034 (other (dired-other-window default-directory))
2035 (t (dired default-directory)))
2037 (setq default-directory odir))
2081 (tag (concat "tmp_pcl_tag_" (make-temp-name "")))
2095 (let* ((default-directory (cvs-expand-dir-name cvs-lock-file))
2096 (locks (directory-files default-directory nil cvs-lock-file-regexp)))
2101 (cond ((file-directory-p lock) (delete-directory lock))
2133 (tmpbuf (cvs-temp-buffer)))
2210 "Add a ChangeLog entry in the ChangeLog of the current directory."
2213 (let* ((default-directory (cvs-expand-dir-name (cvs-fileinfo->dir fi)))
2239 "Return true if FILEINFO represents a file in directory DIR."
2300 (if (or (file-directory-p (expand-file-name "CVSROOT" newroot))
2318 "The action to be performed when opening a CVS directory.
2325 "Whether or not opening a CVS directory should run PCL-CVS.
2328 command that prompted the opening of the directory.
2337 "Run `cvs-examine' if DIR is a CVS administrative directory.
2340 (setq dir (directory-file-name dir))
2348 (funcall cvs-dired-action (file-name-directory dir) t t))))))
2371 (dir default-directory)
2377 (cvs-string-prefix-p default-directory dir))
2378 (let ((subdir (substring dir (length default-directory))))
2407 (cvs-string-prefix-p default-directory file))
2408 (let* ((file (substring file (length default-directory)))
2412 (or (file-name-directory file) "")