1 |
;;; uniquify.el --- unique buffer names dependent on file name |
;;; uniquify.el --- unique buffer names dependent on file name |
2 |
|
|
3 |
;; Copyright (c) 1989,95,96,97,2001,2003 Free Software Foundation, Inc. |
;; Copyright (c) 1989, 1995, 1996, 1997, 2001, 2003, 2005 |
4 |
|
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Dick King <king@reasoning.com> |
;; Author: Dick King <king@reasoning.com> |
7 |
;; Maintainer: FSF |
;; Maintainer: FSF |
188 |
If `uniquify-min-dir-content' > 0, always pulls that many |
If `uniquify-min-dir-content' > 0, always pulls that many |
189 |
file name elements. |
file name elements. |
190 |
Arguments BASE, DIRNAME, and NEWBUF specify the new buffer that causes |
Arguments BASE, DIRNAME, and NEWBUF specify the new buffer that causes |
191 |
this rationaliztion." |
this rationalization." |
192 |
|
(interactive |
193 |
|
(list (if uniquify-managed |
194 |
|
(uniquify-item-base (car uniquify-managed)) (buffer-name)) |
195 |
|
(uniquify-buffer-file-name (current-buffer)) |
196 |
|
(current-buffer))) |
197 |
(if (null dirname) |
(if (null dirname) |
198 |
(with-current-buffer newbuf (setq uniquify-managed nil)) |
(with-current-buffer newbuf (setq uniquify-managed nil)) |
199 |
(setq dirname (expand-file-name (directory-file-name dirname))) |
(setq dirname (expand-file-name (directory-file-name dirname))) |
463 |
|
|
464 |
(provide 'uniquify) |
(provide 'uniquify) |
465 |
|
|
466 |
;;; arch-tag: e763faa3-56c9-4903-8eb8-26e1c45a0065 |
;; arch-tag: e763faa3-56c9-4903-8eb8-26e1c45a0065 |
467 |
;;; uniquify.el ends here |
;;; uniquify.el ends here |