Mercurial > emacs
comparison lisp/add-log.el @ 12157:f4a8265756e7
(prompt-for-change-log-name): Handle the case where
a directory name is specified gracefully.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Fri, 09 Jun 1995 01:29:21 +0000 |
parents | 2a8e1b01bc15 |
children | 572a8ef6b1f4 |
comparison
equal
deleted
inserted
replaced
12156:1620a60ab7ca | 12157:f4a8265756e7 |
---|---|
65 "ChangeLog")))) | 65 "ChangeLog")))) |
66 | 66 |
67 ;;;###autoload | 67 ;;;###autoload |
68 (defun prompt-for-change-log-name () | 68 (defun prompt-for-change-log-name () |
69 "Prompt for a change log name." | 69 "Prompt for a change log name." |
70 (let ((default (change-log-name))) | 70 (let* ((default (change-log-name)) |
71 (expand-file-name | 71 (name (expand-file-name |
72 (read-file-name (format "Log file (default %s): " default) | 72 (read-file-name (format "Log file (default %s): " default) |
73 nil default)))) | 73 nil default)))) |
74 ;; Handle something that is syntactically a directory name. | |
75 ;; Look for ChangeLog or whatever in that directory. | |
76 (if (string= (file-name-nondirectory name) "") | |
77 (expand-file-name (file-name-nondirectory default) | |
78 name) | |
79 ;; Handle specifying a file that is a directory. | |
80 (if (file-directory-p name) | |
81 (expand-file-name (file-name-nondirectory default) | |
82 (file-name-as-directory name)) | |
83 name)))) | |
74 | 84 |
75 ;;;###autoload | 85 ;;;###autoload |
76 (defun find-change-log (&optional file-name) | 86 (defun find-change-log (&optional file-name) |
77 "Find a change log file for \\[add-change-log-entry] and return the name. | 87 "Find a change log file for \\[add-change-log-entry] and return the name. |
78 | 88 |