mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00
Code Issues Releases Activity

(cvs-display-full-path, cvs-fileinfo->full-path):

Browse Source 
Add WHEN to obsolescence declaration.
This commit is contained in:
Juanma Barranquero 2008-04-18 10:31:54 +00:00
parent d9bb547b68
commit 82061ebfd7
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/pcvs-info.el
View File

@ -42,7 +42,8 @@
;;;; config variables
;;;;
(define-obsolete-variable-alias 'cvs-display-full-path 'cvs-display-full-name)
(define-obsolete-variable-alias 'cvs-display-full-path
'cvs-display-full-name "22.1")
(defcustom cvs-display-full-name t
"*Specifies how the filenames should be displayed in the listing.
@ -227,7 +228,8 @@ to confuse some users sometimes."
;; Here, I use `concat' rather than `expand-file-name' because I want
;; the resulting path to stay relative if `dir' is relative.
(concat dir (cvs-fileinfo->file fileinfo)))))
(define-obsolete-function-alias 'cvs-fileinfo->full-path 'cvs-fileinfo->full-name)
(define-obsolete-function-alias 'cvs-fileinfo->full-path
'cvs-fileinfo->full-name "22.1")
(defun cvs-fileinfo->pp-name (fi)
"Return the filename of FI as it should be displayed."