(uniquify-rationalize-file-buffer-names): Delete interactive spec.

[gnu-emacs] / lisp / uniquify.el

diff --git a/lisp/uniquify.el b/lisp/uniquify.el
index 656f5c3708017876bc7d32019f9237157d056aaa..b2da7971167dcd2df7f50f6e3e7bcac0fb00e1cf 100644 (file)
--- a/lisp/uniquify.el
+++ b/lisp/uniquify.el
@@ -188,7 +188,6 @@ 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."
 file name elements.
 Arguments BASE, DIRNAME, and NEWBUF specify the new buffer that causes
 this rationaliztion."

-  (interactive)

   (if (null dirname)
       (with-current-buffer newbuf (setq uniquify-managed nil))
     (setq dirname (expand-file-name (directory-file-name dirname)))
   (if (null dirname)
       (with-current-buffer newbuf (setq uniquify-managed nil))
     (setq dirname (expand-file-name (directory-file-name dirname)))


@@ -457,4 +456,6 @@ For use on `kill-buffer-hook'."
 (add-hook 'kill-buffer-hook 'uniquify-maybe-rerationalize-w/o-cb)
 
 (provide 'uniquify)
 (add-hook 'kill-buffer-hook 'uniquify-maybe-rerationalize-w/o-cb)
 
 (provide 'uniquify)

+
+;;; arch-tag: e763faa3-56c9-4903-8eb8-26e1c45a0065

 ;;; uniquify.el ends here
 ;;; uniquify.el ends here