Mercurial > emacs

comparison lisp/add-log.el @ 12157:f4a8265756e7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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