Rename "full-path" -> "full-name".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8a9a84030525c640fcd9c223061eab7cf83f633b..eddacc001fb2776ef162af6f3575802880d86106 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2005-04-26  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * pcvs-info.el (cvs-fileinfo->full-path, cvs-display-full-path):
+       New fun and var, to preserve compatibility.
+
+       * pcvs.el, pcvs-info.el: Rename "full-path" -> "full-name".
+
+2005-04-26  Dominique de Waleffe  <ddw@missioncriticalit.com>  (tiny change)
+
+       * pcvs-info.el (cvs-fileinfo->backup-file): Don't pass the full file
+       name to file-newer-than-file-p.
+
 2005-04-26  Richard M. Stallman  <rms@gnu.org>
 
        * simple.el (line-move-1): Avoid using vertical-motion in easy cases.
@@ -9,7 +21,7 @@
 
        * emacs-lisp/eldoc.el (eldoc-mode): Doc fix.
        (eldoc-documentation-function):
-       Renamed from eldoc-print-current-symbol-info-function.  Calls changed.
+       Rename from eldoc-print-current-symbol-info-function.  Calls changed.
 
 2005-04-26  Nick Roberts  <nickrob@snap.net.nz>
 
@@ -18,13 +30,13 @@
 2005-04-25  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * term/xterm.el (function-key-map): Fix strings for
-       {C,S,A,C-S}-f[1-4]. Use substitute-key-definition to bind 
+       {C,S,A,C-S}-f[1-4].  Use substitute-key-definition to bind
        {C,S,A,C-S}-{f1-f12}.
 
 2005-04-26  Kenichi Handa  <handa@m17n.org>
 
-       * international/mule-cmds.el (select-safe-coding-system): Fix
-       previous change.
+       * international/mule-cmds.el (select-safe-coding-system):
+       Fix previous change.
 
 2005-04-26  Lute Kamstra  <lute@gnu.org>
 
@@ -43,8 +55,7 @@
 2005-04-25  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * term.el (ansi-term-color-vector): Use the xterm colors.
-       (term-raw-map): Don't add mappings for \eO and \e[. Map
-       deletechar.
+       (term-raw-map): Don't add mappings for \eO and \e[. Map deletechar.
 
 2005-04-25  Lute Kamstra  <lute@gnu.org>
 
@@ -54,8 +65,8 @@
 
 2005-04-25  Kenichi Handa  <handa@m17n.org>
 
-       * international/mule-cmds.el (select-safe-coding-system): Don't
-       check consistency with coding: spec, etc if raw-text or
+       * international/mule-cmds.el (select-safe-coding-system):
+       Don't check consistency with coding: spec, etc if raw-text or
        no-conversion was found to be safe.
 
 2005-04-24  Richard M. Stallman  <rms@gnu.org>
@@ -204,13 +215,13 @@
        not quadratic.  Suggested by David Kastrup <dak@gnu.org>.
        (rassq-delete-all): New function.
 
-       * menu-bar.el (menu-bar-options-save, menu-bar-showhide-menu): Add
-       size-indication-mode.
+       * menu-bar.el (menu-bar-options-save, menu-bar-showhide-menu):
+       Add size-indication-mode.
 
 2005-04-21  Kenichi Handa  <handa@m17n.org>
 
        * international/mule-cmds.el: Add autoload for widget-value in
-       eval-when-compile
+       eval-when-compile.
 
 2005-04-21  Nick Roberts  <nickrob@snap.net.nz>
 
@@ -581,8 +592,8 @@
 2005-04-11  Rajesh Vaidheeswarran  <rv@gnu.org>
 
        * whitespace.el (whitespace-buffer-leading)
-       (whitespace-buffer-trailing): Revert the incorrect test
-       inversion. However, fix the highlight area for the leading and
+       (whitespace-buffer-trailing): Revert the incorrect test inversion.
+       However, fix the highlight area for the leading and
        trailing whitespaces to show space.
 
 2005-04-11  Rajesh Vaidheeswarran  <rv@gnu.org>

diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index e7139d9cfbacdff8abbabd8efab945599579f27d..6382705139ea14ff7446d0d538ec26f3dc5fc9c8 100644 (file)
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -233,7 +233,7 @@
                             nil        ;don't update display while running
                             "status"
                             "-v"
-                            (cvs-fileinfo->full-path (car marked)))
+                            (cvs-fileinfo->full-name (car marked)))
               (goto-char (point-min))
               (let ((tags (cvs-status-get-tags)))
                 (when (listp tags) tags)))))))
@@ -512,7 +512,7 @@ If non-nil, NEW means to create a new buffer no matter what."
       (let* ((dir+files+rest
              (if (or (null fis) (not single-dir))
                  ;; not single-dir mode: just process the whole thing
-                 (list "" (mapcar 'cvs-fileinfo->full-path fis) nil)
+                 (list "" (mapcar 'cvs-fileinfo->full-name fis) nil)
                ;; single-dir mode: extract the same-dir-elements
                (let ((dir (cvs-fileinfo->dir (car fis))))
                  ;; output the concerned dir so the parser can translate paths
@@ -611,7 +611,7 @@ If non-nil, NEW means to create a new buffer no matter what."
             (append (cvs-flags-query 'cvs-cvs-flags nil 'noquery)
                     (if cvs-cvsroot (list "-d" cvs-cvsroot))
                     args
-                    (mapcar 'cvs-fileinfo->full-path fis))))))
+                    (mapcar 'cvs-fileinfo->full-name fis))))))
 
 (defun cvs-update-header (cmd add)
   (let* ((hf (ewoc-get-hf cvs-cookies))
@@ -831,7 +831,7 @@ the problem."
   (and (or (eq (cvs-fileinfo->type fi) 'REMOVED)
           (and (eq (cvs-fileinfo->type fi) 'CONFLICT)
                (eq (cvs-fileinfo->subtype fi) 'REMOVED)))
-       (file-exists-p (cvs-fileinfo->full-path fi))))
+       (file-exists-p (cvs-fileinfo->full-name fi))))
 
 ;; called at the following times:
 ;; - postparse  ((eq cvs-auto-remove-handled t) cvs-auto-remove-directories nil)
@@ -1406,7 +1406,7 @@ If FILE is non-nil, directory entries won't be selected."
 (defun cvs-mode-files (&rest -cvs-mode-files-args)
   (cvs-mode!
    (lambda ()
-     (mapcar 'cvs-fileinfo->full-path
+     (mapcar 'cvs-fileinfo->full-name
             (apply 'cvs-mode-marked -cvs-mode-files-args)))))
 
 ;;
@@ -1564,7 +1564,7 @@ With prefix argument, prompt for cvs flags."
     ;; find directories and look for fis needing a description
     (dolist (fi fis)
       (cond
-       ((file-directory-p (cvs-fileinfo->full-path fi)) (push fi dirs))
+       ((file-directory-p (cvs-fileinfo->full-name fi)) (push fi dirs))
        ((eq (cvs-fileinfo->type fi) 'UNKNOWN) (setq needdesc t))))
     ;; prompt for description if necessary
     (let* ((msg (if (and needdesc
@@ -1642,8 +1642,8 @@ or \"Conflict\" in the *cvs* buffer."
 Signal an error if there is no backup file."
   (let ((backup-file (cvs-fileinfo->backup-file fileinfo)))
     (unless backup-file
-      (error "%s has no backup file" (cvs-fileinfo->full-path fileinfo)))
-    (list backup-file (cvs-fileinfo->full-path fileinfo))))
+      (error "%s has no backup file" (cvs-fileinfo->full-name fileinfo)))
+    (list backup-file (cvs-fileinfo->full-name fileinfo))))
 
 ;;
 ;; Emerge support
@@ -1697,7 +1697,7 @@ Signal an error if there is no backup file."
 
 (defun cvs-retrieve-revision (fileinfo rev)
   "Retrieve the given REVision of the file in FILEINFO into a new buffer."
-  (let* ((file (cvs-fileinfo->full-path fileinfo))
+  (let* ((file (cvs-fileinfo->full-name fileinfo))
         (buffile (concat file "." rev)))
     (or (find-buffer-visiting buffile)
        (with-current-buffer (create-file-buffer buffile)
@@ -1729,7 +1729,7 @@ Signal an error if there is no backup file."
   (interactive)
   (let ((fi (cvs-mode-marked 'merge nil :one t :file t)))
     (let ((merge (cvs-fileinfo->merge fi))
-         (file (cvs-fileinfo->full-path fi))
+         (file (cvs-fileinfo->full-name fi))
          (backup-file (cvs-fileinfo->backup-file fi)))
       (if (not (and merge backup-file))
          (let ((buf (find-file-noselect file)))
@@ -1760,7 +1760,7 @@ Signal an error if there is no backup file."
      (list (or rev1 (cvs-flags-query 'cvs-idiff-version))
           rev2)))
   (let ((fi (cvs-mode-marked 'diff "idiff" :one t :file t)))
-    (let* ((file (cvs-fileinfo->full-path fi))
+    (let* ((file (cvs-fileinfo->full-name fi))
           (rev1-buf (cvs-retrieve-revision fi (or rev1 "BASE")))
           (rev2-buf (if rev2 (cvs-retrieve-revision fi rev2)))
           ;; this binding is used by cvs-ediff-startup-hook
@@ -1778,13 +1778,13 @@ Signal an error if there is no backup file."
       (error "idiff-other cannot be applied to more than 2 files at a time"))
     (let* ((fi1 (car fis))
           (rev1-buf (if rev1 (cvs-retrieve-revision fi1 rev1)
-                      (find-file-noselect (cvs-fileinfo->full-path fi1))))
+                      (find-file-noselect (cvs-fileinfo->full-name fi1))))
           rev2-buf)
       (if (cdr fis)
          (let ((fi2 (nth 1 fis)))
            (setq rev2-buf
                  (if rev2 (cvs-retrieve-revision fi2 rev2)
-                   (find-file-noselect (cvs-fileinfo->full-path fi2)))))
+                   (find-file-noselect (cvs-fileinfo->full-name fi2)))))
        (error "idiff-other doesn't know what other file/buffer to use"))
       (let* (;; this binding is used by cvs-ediff-startup-hook
             (cvs-transient-buffers (list rev1-buf rev2-buf)))
@@ -1799,7 +1799,7 @@ Signal an error if there is no backup file."
     (let (ret)
       (dolist (fi (or fis (list (cvs-create-fileinfo 'DIRCHANGE "" "." ""))))
        (when (cvs-string-prefix-p
-              (expand-file-name (cvs-fileinfo->full-path fi) dir)
+              (expand-file-name (cvs-fileinfo->full-name fi) dir)
               buffer-file-name)
          (setq ret t)))
       ret)))
@@ -2002,7 +2002,7 @@ With a prefix, opens the buffer in an OTHER window."
             (set-buffer cvs-buf)
             (setq default-directory odir))
         (let ((buf (if rev (cvs-retrieve-revision fi rev)
-                     (find-file-noselect (cvs-fileinfo->full-path fi)))))
+                     (find-file-noselect (cvs-fileinfo->full-name fi)))))
           (funcall (cond ((eq other 'dont-select) 'display-buffer)
                          (other
                           (if view 'view-buffer-other-window
@@ -2093,14 +2093,14 @@ Returns a list of FIS that should be `cvs remove'd."
         (silent (or (not cvs-confirm-removals)
                     (cvs-every (lambda (fi)
                                  (or (not (file-exists-p
-                                           (cvs-fileinfo->full-path fi)))
+                                           (cvs-fileinfo->full-name fi)))
                                      (cvs-applicable-p fi 'safe-rm)))
                                files)))
         (tmpbuf (cvs-temp-buffer)))
     (when (and (not silent) (equal cvs-confirm-removals 'list))
       (with-current-buffer tmpbuf
        (let ((inhibit-read-only t))
-         (cvs-insert-strings (mapcar 'cvs-fileinfo->full-path fis))
+         (cvs-insert-strings (mapcar 'cvs-fileinfo->full-name fis))
          (cvs-pop-to-buffer-same-frame (current-buffer))
          (shrink-window-if-larger-than-buffer))))
     (if (not (or silent
@@ -2119,7 +2119,7 @@ Returns a list of FIS that should be `cvs remove'd."
        (progn (message "Aborting") nil)
       (dolist (fi files)
        (let* ((type (cvs-fileinfo->type fi))
-              (file (cvs-fileinfo->full-path fi)))
+              (file (cvs-fileinfo->full-name fi)))
          (when (or all (eq type 'UNKNOWN))
            (when (file-exists-p file) (delete-file file))
            (unless all (setf (cvs-fileinfo->type fi) 'DEAD) t))))
@@ -2166,7 +2166,7 @@ With prefix argument, prompt for cvs flags."
   (interactive)
   (let ((marked (cvs-get-marked (cvs-ignore-marks-p "byte-compile"))))
     (dolist (fi marked)
-      (let ((filename (cvs-fileinfo->full-path fi)))
+      (let ((filename (cvs-fileinfo->full-name fi)))
        (when (string-match "\\.el\\'" filename)
          (byte-compile-file filename))))))
 
@@ -2237,7 +2237,7 @@ this file, or a list of arguments to send to the program."
 \f
 (defun cvs-revert-if-needed (fis)
   (dolist (fileinfo fis)
-    (let* ((file (cvs-fileinfo->full-path fileinfo))
+    (let* ((file (cvs-fileinfo->full-name fileinfo))
           (buffer (find-buffer-visiting file)))
       ;; For a revert to happen the user must be editing the file...
       (unless (or (null buffer)