From: Stefan Monnier Date: Tue, 26 Apr 2005 20:37:31 +0000 (+0000) Subject: Rename "full-path" -> "full-name". X-Git-Tag: ttn-vms-21-2-B4~718 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2231c2bc7d17080ae1a2a464afaee842542fa96a;p=emacs.git Rename "full-path" -> "full-name". --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8a9a8403052..eddacc001fb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,15 @@ +2005-04-26 Stefan Monnier + + * 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 (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 * 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 @@ -18,13 +30,13 @@ 2005-04-25 Dan Nicolaescu * 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 - * 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 @@ -43,8 +55,7 @@ 2005-04-25 Dan Nicolaescu * 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 @@ -54,8 +65,8 @@ 2005-04-25 Kenichi Handa - * 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 @@ -204,13 +215,13 @@ not quadratic. Suggested by David Kastrup . (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 * international/mule-cmds.el: Add autoload for widget-value in - eval-when-compile + eval-when-compile. 2005-04-21 Nick Roberts @@ -581,8 +592,8 @@ 2005-04-11 Rajesh Vaidheeswarran * 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 diff --git a/lisp/pcvs.el b/lisp/pcvs.el index e7139d9cfba..6382705139e 100644 --- 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." (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)