Mercurial > emacs

comparison lisp/uniquify.el @ 59130:ba97b7508fd1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(uniquify-rationalize-file-buffer-names): Delete interactive spec.
author Richard M. Stallman <rms@gnu.org>
date Mon, 27 Dec 2004 16:38:06 +0000
parents 695cf19ef79e
children 7764df4e45e1 95879cc1ed20
comparison
equal deleted inserted replaced
59129:c5ec711f16c8 59130:ba97b7508fd1
186 "Make file buffer names unique by adding segments from file name. 186 "Make file buffer names unique by adding segments from file name.
187 If `uniquify-min-dir-content' > 0, always pulls that many 187 If `uniquify-min-dir-content' > 0, always pulls that many
188 file name elements. 188 file name elements.
189 Arguments BASE, DIRNAME, and NEWBUF specify the new buffer that causes 189 Arguments BASE, DIRNAME, and NEWBUF specify the new buffer that causes
190 this rationaliztion." 190 this rationaliztion."
191 (interactive)
192 (if (null dirname) 191 (if (null dirname)
193 (with-current-buffer newbuf (setq uniquify-managed nil)) 192 (with-current-buffer newbuf (setq uniquify-managed nil))
194 (setq dirname (expand-file-name (directory-file-name dirname))) 193 (setq dirname (expand-file-name (directory-file-name dirname)))
195 (let ((fix-list (list (uniquify-make-item base dirname newbuf))) 194 (let ((fix-list (list (uniquify-make-item base dirname newbuf)))
196 items) 195 items)