/[emacs]/emacs/lisp/uniquify.el
ViewVC logotype

Diff of /emacs/lisp/uniquify.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.54 by rms, Mon Dec 27 16:38:06 2004 UTC revision 1.55 by monnier, Wed Jan 5 21:20:38 2005 UTC
# Line 1  Line 1 
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
# Line 187  It actually holds the list of `uniquify- Line 188  It actually holds the list of `uniquify-
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)))
# Line 457  For use on `kill-buffer-hook'." Line 463  For use on `kill-buffer-hook'."
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

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26