changeset 59380:7764df4e45e1

(uniquify-rationalize-file-buffer-names): Re-add an interactive spec.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 05 Jan 2005 21:20:38 +0000
parents b9bf38399e43
children 77618102ddc4
files lisp/ChangeLog lisp/uniquify.el
diffstat 2 files changed, 12 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Wed Jan 05 20:49:11 2005 +0000
+++ b/lisp/ChangeLog	Wed Jan 05 21:20:38 2005 +0000
@@ -1,5 +1,8 @@
 2005-01-05  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* uniquify.el (uniquify-rationalize-file-buffer-names):
+	Re-add an interactive spec.
+
 	* isearch.el (isearch-dehighlight): Remove unused arg `totally'.
 	(isearch-update, isearch-done): Adjust calls accordingly.
 
--- a/lisp/uniquify.el	Wed Jan 05 20:49:11 2005 +0000
+++ b/lisp/uniquify.el	Wed Jan 05 21:20:38 2005 +0000
@@ -1,6 +1,7 @@
 ;;; uniquify.el --- unique buffer names dependent on file name
 
-;; Copyright (c) 1989,95,96,97,2001,2003  Free Software Foundation, Inc.
+;; Copyright (c) 1989, 1995, 1996, 1997, 2001, 2003, 2005
+;;           Free Software Foundation, Inc.
 
 ;; Author: Dick King <king@reasoning.com>
 ;; Maintainer: FSF
@@ -187,7 +188,12 @@
 If `uniquify-min-dir-content' > 0, always pulls that many
 file name elements.
 Arguments BASE, DIRNAME, and NEWBUF specify the new buffer that causes
-this rationaliztion."
+this rationalization."
+  (interactive
+   (list (if uniquify-managed
+	     (uniquify-item-base (car uniquify-managed)) (buffer-name))
+	 (uniquify-buffer-file-name (current-buffer))
+	 (current-buffer)))
   (if (null dirname)
       (with-current-buffer newbuf (setq uniquify-managed nil))
     (setq dirname (expand-file-name (directory-file-name dirname)))
@@ -457,5 +463,5 @@
 
 (provide 'uniquify)
 
-;;; arch-tag: e763faa3-56c9-4903-8eb8-26e1c45a0065
+;; arch-tag: e763faa3-56c9-4903-8eb8-26e1c45a0065
 ;;; uniquify.el ends here