188 |
file name elements. |
file name elements. |
189 |
Arguments BASE, DIRNAME, and NEWBUF specify the new buffer that causes |
Arguments BASE, DIRNAME, and NEWBUF specify the new buffer that causes |
190 |
this rationaliztion." |
this rationaliztion." |
|
(interactive) |
|
191 |
(if (null dirname) |
(if (null dirname) |
192 |
(with-current-buffer newbuf (setq uniquify-managed nil)) |
(with-current-buffer newbuf (setq uniquify-managed nil)) |
193 |
(setq dirname (expand-file-name (directory-file-name dirname))) |
(setq dirname (expand-file-name (directory-file-name dirname))) |