Lines Matching +refs:dired +refs:insert +refs:directory
38 ;; familiar with VC, it is somewhat like VC-dired: it presents the status of
40 ;; of them at a time. Compared to VC-dired, it is considerably better and
48 ;; for VC-dired. As such, I've tried to make PCL-CVS and VC interoperate
66 ;; - automatically cvs-mode-insert files from find-file-hook
178 (insert-file-contents cvs-cvsrc-file)
354 \(unless NOSETUP is non-nil\) and its `default-directory' will be inherited
360 (dir default-directory)
396 (setq default-directory dir)
400 (let ((lbd list-buffers-directory))
402 (when lbd (set (make-local-variable 'list-buffers-directory) lbd)))
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)
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))
512 (unless (bolp) (let ((inhibit-read-only t)) (insert "\n")))
522 (insert "pcl-cvs: descending directory " dir "\n"))
563 (let ((default-directory (cvs-expand-dir-name dir)))
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
1085 (insert string)
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."
1411 (setq fis (list (cvs-insert-file
1520 (when text (erase-buffer) (insert text))
1553 (defun-cvs-mode (cvs-mode-insert . NOARGS) (file)
1559 "File to insert: "
1563 (file-name-as-directory
1568 (cvs-insert-file file))
1570 (defun cvs-insert-file (file)
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
1750 (after-insert-file-set-coding (buffer-size) t)
1851 (let ((def-dir default-directory))
1962 If OLD-DIR is non-nil, then this is a directory that we don't want
1973 (unless (bolp) (insert "\n"))
1974 (insert str (if old-dir "/\n" "\n"))
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))
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))
2137 (cvs-insert-strings (mapcar 'cvs-fileinfo->full-name fis))
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."
2252 (insert (format "=== %s %s\n\n"
2300 (if (or (file-directory-p (expand-file-name "CVSROOT" newroot))
2317 (defcustom cvs-dired-action 'cvs-quickdir
2318 "The action to be performed when opening a CVS directory.
2324 (defcustom cvs-dired-use-hook '(4)
2325 "Whether or not opening a CVS directory should run PCL-CVS.
2328 command that prompted the opening of the directory.
2336 (progn (defun cvs-dired-noselect (dir)
2337 "Run `cvs-examine' if DIR is a CVS administrative directory.
2338 The exact behavior is determined also by `cvs-dired-use-hook'."
2340 (setq dir (directory-file-name dir))
2343 cvs-dired-use-hook
2344 (if (eq cvs-dired-use-hook 'always)
2346 (equal current-prefix-arg cvs-dired-use-hook)))
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))))
2385 (insert "cvs add: scheduling file `"
2407 (cvs-string-prefix-p default-directory file))
2408 (let* ((file (substring file (length default-directory)))
2412 (or (file-name-directory file) "")