Mercurial > emacs
comparison lisp/pcvs-info.el @ 94166:024f6c12a147
(cvs-display-full-path, cvs-fileinfo->full-path):
Add WHEN to obsolescence declaration.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 18 Apr 2008 10:31:54 +0000 |
| parents | 780a4492dea0 |
| children | ee5932bf781d |
comparison
equal
deleted
inserted
replaced
| 94165:aaacbb8c259f | 94166:024f6c12a147 |
|---|---|
| 40 | 40 |
| 41 ;;;; | 41 ;;;; |
| 42 ;;;; config variables | 42 ;;;; config variables |
| 43 ;;;; | 43 ;;;; |
| 44 | 44 |
| 45 (define-obsolete-variable-alias 'cvs-display-full-path 'cvs-display-full-name) | 45 (define-obsolete-variable-alias 'cvs-display-full-path |
| 46 'cvs-display-full-name "22.1") | |
| 46 | 47 |
| 47 (defcustom cvs-display-full-name t | 48 (defcustom cvs-display-full-name t |
| 48 "*Specifies how the filenames should be displayed in the listing. | 49 "*Specifies how the filenames should be displayed in the listing. |
| 49 If non-nil, their full filename name will be displayed, else only the | 50 If non-nil, their full filename name will be displayed, else only the |
| 50 non-directory part." | 51 non-directory part." |
| 225 (if (eq (cvs-fileinfo->type fileinfo) 'DIRCHANGE) | 226 (if (eq (cvs-fileinfo->type fileinfo) 'DIRCHANGE) |
| 226 (if (string= dir "") "." (directory-file-name dir)) | 227 (if (string= dir "") "." (directory-file-name dir)) |
| 227 ;; Here, I use `concat' rather than `expand-file-name' because I want | 228 ;; Here, I use `concat' rather than `expand-file-name' because I want |
| 228 ;; the resulting path to stay relative if `dir' is relative. | 229 ;; the resulting path to stay relative if `dir' is relative. |
| 229 (concat dir (cvs-fileinfo->file fileinfo))))) | 230 (concat dir (cvs-fileinfo->file fileinfo))))) |
| 230 (define-obsolete-function-alias 'cvs-fileinfo->full-path 'cvs-fileinfo->full-name) | 231 (define-obsolete-function-alias 'cvs-fileinfo->full-path |
| 232 'cvs-fileinfo->full-name "22.1") | |
| 231 | 233 |
| 232 (defun cvs-fileinfo->pp-name (fi) | 234 (defun cvs-fileinfo->pp-name (fi) |
| 233 "Return the filename of FI as it should be displayed." | 235 "Return the filename of FI as it should be displayed." |
| 234 (if cvs-display-full-name | 236 (if cvs-display-full-name |
| 235 (cvs-fileinfo->full-name fi) | 237 (cvs-fileinfo->full-name fi) |