From 82061ebfd74f189a45f1b6a0fa5b9f59343440a6 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 18 Apr 2008 10:31:54 +0000 Subject: [PATCH] (cvs-display-full-path, cvs-fileinfo->full-path): Add WHEN to obsolescence declaration. --- lisp/pcvs-info.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/pcvs-info.el b/lisp/pcvs-info.el index 33f7c66dcc0..353a55fc6c4 100644 --- a/lisp/pcvs-info.el +++ b/lisp/pcvs-info.el @@ -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." -- 2.39.5