X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/dee9b44fb6e464707bb91e7571873f3f50cb7b94..e7e7e168835c79bff058b8cd400b9762c7468f87:/lisp/uniquify.el?ds=sidebyside

diff --git a/lisp/uniquify.el b/lisp/uniquify.el
index 656f5c3708..b2da797116 100644
--- 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."
-  (interactive)
   (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)
+
+;;; arch-tag: e763faa3-56c9-4903-8eb8-26e1c45a0065
 ;;; uniquify.el ends here