diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/time-stamp.el | 4 | ||||
| -rw-r--r-- | lisp/vc/ediff.el | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el index 178e490fb7d..04e736d027c 100644 --- a/lisp/time-stamp.el +++ b/lisp/time-stamp.el @@ -65,7 +65,7 @@ with %, as follows. Non-date items: %% a literal percent character: `%' -%f file name without directory %F gives absolute pathname +%f file name without directory %F absolute file name %l login name %L full name of logged-in user %q unqualified host name %Q fully-qualified host name %h mail host name @@ -661,7 +661,7 @@ and all `time-stamp-format' compatibility." (if buffer-file-name (file-name-nondirectory buffer-file-name) time-stamp-no-file)) - ((eq cur-char ?F) ;buffer-file-name, full path + ((eq cur-char ?F) ;buffer-file-name, absolute name (or buffer-file-name time-stamp-no-file)) ((eq cur-char ?s) ;system name, legacy diff --git a/lisp/vc/ediff.el b/lisp/vc/ediff.el index 49fc60431f6..97c84ae5a18 100644 --- a/lisp/vc/ediff.el +++ b/lisp/vc/ediff.el @@ -983,9 +983,9 @@ STARTUP-HOOKS is a list of functions that Emacs calls without arguments after setting up the Ediff buffers." (interactive (let (bf) - (list (setq bf (read-buffer "Region's A buffer: " + (list (setq bf (read-buffer "Region A's buffer: " (ediff-other-buffer "") t)) - (read-buffer "Region's B buffer: " + (read-buffer "Region B's buffer: " (progn ;; realign buffers so that two visible bufs will be ;; at the top |