Mercurial > emacs
annotate lisp/uniquify.el @ 110410:f2e111723c3a
Merge changes made in Gnus trunk.
Reimplement nnimap, and do tweaks to the rest of the code to support that.
* gnus-int.el (gnus-finish-retrieve-group-infos)
(gnus-retrieve-group-data-early): New functions.
* gnus-range.el (gnus-range-nconcat): New function.
* gnus-start.el (gnus-get-unread-articles): Support early retrieval of
data.
(gnus-read-active-for-groups): Support finishing the early retrieval of
data.
* gnus-sum.el (gnus-summary-move-article): Pass the move-to group name
if the move is internal, so that nnimap can do fast internal moves.
* gnus.el (gnus-article-special-mark-lists): Add uid/active tuples, for
nnimap usage.
* nnimap.el: Rewritten.
* nnmail.el (nnmail-inhibit-default-split-group): New internal variable
to allow the mail splitting to not return a default group. This is
useful for nnimap, which will leave unmatched mail in the inbox.
* utf7.el (utf7-encode): Autoload.
Implement shell connection.
* nnimap.el (nnimap-open-shell-stream): New function.
(nnimap-open-connection): Use it.
Get the number of lines by using BODYSTRUCTURE.
(nnimap-transform-headers): Get the number of lines in each message.
(nnimap-retrieve-headers): Query for BODYSTRUCTURE so that we get the
number of lines.
Not all servers return UIDNEXT. Work past this problem.
Remove junk from end of file.
Fix typo in "bogus" section.
Make capabilties be case-insensitive.
Require cl when compiling.
Don't bug out if the LIST command doesn't have any parameters.
2010-09-17 Knut Anders Hatlen <kahatlen@gmail.com> (tiny change)
* nnimap.el (nnimap-get-groups): Don't bug out if the LIST command
doesn't have any parameters.
(mm-text-html-renderer): Document gnus-article-html.
2010-09-17 Julien Danjou <julien@danjou.info> (tiny fix)
* mm-decode.el (mm-text-html-renderer): Document gnus-article-html.
* dgnushack.el: Define netrc-credentials.
If the user doesn't have a /etc/services, supply some sensible port defaults.
Have `unseen-or-unread' select an unread unseen article first.
(nntp-open-server): Return whether the open was successful or not.
Throughout all files, replace (save-excursion (set-buffer ...)) with (with-current-buffer ... ).
Save result so that it doesn't say "failed" all the time.
Add ~/.authinfo to the default, since that's probably most useful for users.
Don't use the "finish" method when we're reading from the agent.
Add some more nnimap-relevant agent stuff to nnagent.el.
* nnimap.el (nnimap-with-process-buffer): Removed.
Revert one line that was changed by mistake in the last checkin.
(nnimap-open-connection): Don't error out when we can't make a connection
nnimap-related changes to avoid bugging out if we can't contact a server.
* gnus-start.el (gnus-get-unread-articles): Don't try to scan groups
from methods that are denied.
* nnimap.el (nnimap-possibly-change-group): Return nil if we can't log
in.
(nnimap-finish-retrieve-group-infos): Make sure we're not waiting for
nothing.
* gnus-sum.el (gnus-select-newsgroup): Indent.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Sat, 18 Sep 2010 10:02:19 +0000 |
parents | 280c8ae2476d |
children | 417b1e4d63cd |
rev | line source |
---|---|
14295 | 1 ;;; uniquify.el --- unique buffer names dependent on file name |
13814 | 2 |
64762
41bb365f41c4
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64091
diff
changeset
|
3 ;; Copyright (C) 1989, 1995, 1996, 1997, 2001, 2002, 2003, |
106815 | 4 ;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
13814 | 5 |
6 ;; Author: Dick King <king@reasoning.com> | |
36621 | 7 ;; Maintainer: FSF |
39117 | 8 ;; Keywords: files |
13814 | 9 ;; Created: 15 May 86 |
110015
280c8ae2476d
Add "Package:" file headers to denote built-in packages.
Chong Yidong <cyd@stupidchicken.com>
parents:
107378
diff
changeset
|
10 ;; Package: emacs |
13814 | 11 |
12 ;; This file is part of GNU Emacs. | |
13 | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94473
diff
changeset
|
14 ;; GNU Emacs is free software: you can redistribute it and/or modify |
13814 | 15 ;; it under the terms of the GNU General Public License as published by |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94473
diff
changeset
|
16 ;; the Free Software Foundation, either version 3 of the License, or |
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94473
diff
changeset
|
17 ;; (at your option) any later version. |
13814 | 18 |
19 ;; GNU Emacs is distributed in the hope that it will be useful, | |
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
22 ;; GNU General Public License for more details. | |
23 | |
24 ;; You should have received a copy of the GNU General Public License | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94473
diff
changeset
|
25 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
13814 | 26 |
27 ;;; Commentary: | |
28 | |
29 ;; Emacs's standard method for making buffer names unique adds <2>, <3>, | |
91840
53e2227d1fae
(uniquify-buffer-base-name): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
87649
diff
changeset
|
30 ;; etc. to the end of (all but one of) the buffers. This file replaces |
13814 | 31 ;; that behavior, for buffers visiting files and dired buffers, with a |
14295 | 32 ;; uniquification that adds parts of the file name until the buffer names |
13814 | 33 ;; are unique. For instance, buffers visiting /u/mernst/tmp/Makefile and |
34 ;; /usr/projects/zaphod/Makefile would be named Makefile|tmp and | |
35 ;; Makefile|zaphod, respectively (instead of Makefile and Makefile<2>). | |
36 ;; Other buffer name styles are also available. | |
37 | |
18375
b547822f0a11
(delay-uniquify-rationalize-file-buffer-names): Remove this hook here,
Richard M. Stallman <rms@gnu.org>
parents:
17414
diff
changeset
|
38 ;; To use this file, do (require 'uniquify) |
b547822f0a11
(delay-uniquify-rationalize-file-buffer-names): Remove this hook here,
Richard M. Stallman <rms@gnu.org>
parents:
17414
diff
changeset
|
39 ;; and set uniquify-buffer-name-style to one of its non-nil alternative values. |
b547822f0a11
(delay-uniquify-rationalize-file-buffer-names): Remove this hook here,
Richard M. Stallman <rms@gnu.org>
parents:
17414
diff
changeset
|
40 |
13814 | 41 ;; For other options, see "User-visible variables", below. |
42 | |
13851
922f62608a55
(uniquify-fix-list-filename-lessp): Renamed from uniquify-filename-sort.
Richard M. Stallman <rms@gnu.org>
parents:
13814
diff
changeset
|
43 ;; A version of uniquify.el that works under Emacs 18, Emacs 19, XEmacs, |
922f62608a55
(uniquify-fix-list-filename-lessp): Renamed from uniquify-filename-sort.
Richard M. Stallman <rms@gnu.org>
parents:
13814
diff
changeset
|
44 ;; and InfoDock is available from the maintainer. |
13814 | 45 |
46 ;;; Change Log: | |
47 | |
48 ;; Originally by Dick King <king@reasoning.com> 15 May 86 | |
39400
e69aa66ec7cc
Update Stephen Gildea's mail address.
Eli Zaretskii <eliz@gnu.org>
parents:
39117
diff
changeset
|
49 ;; Converted for Emacs 18 by Stephen Gildea <gildea@stop.mail-abuse.org> |
13814 | 50 ;; Make uniquify-min-dir-content 0 truly non-invasive. gildea 23 May 89 |
51 ;; Some cleanup. uniquify-min-dir-content default 0. gildea 01 Jun 89 | |
52 ;; Don't rename to "". Michael Ernst <mernst@theory.lcs.mit.edu> 15 Jun 94 | |
53 ;; Add kill-buffer-hook. Kenneth Manheimer <ken.manheimer@nist.gov> 09 May 95 | |
54 ;; Add advice for rename-buffer and create-file-buffer, handle dired buffers, | |
55 ;; kill-buffer-rationalize-buffer-names-p, documentation. mernst 24 May 95 | |
56 ;; Remove free variables, fix typos. mernst 5 Jun 95 | |
57 ;; Efficiently support Emacs 19.27 & earlier. ken.manheimer, mernst 10 Jun 95 | |
58 ;; Rename user options to "uniquify-...", add uniquify-reverse-dir-content-p, | |
59 ;; add uniquify-ask-about-buffer-names-p. king, mernst 13 Jun 95 | |
60 ;; Prefix functions by "uniquify-..."; rename mnemonic-buffer-names to | |
61 ;; uniquify-buffer-name-style; add 'forward and 'post-forward-angle-brackets | |
62 ;; styles; remove uniquify-reverse-dir-content-p; add | |
63 ;; uniquify-trailing-separator-p. mernst 4 Aug 95 | |
17145
d342009009c7
(uniquify-buffer-file-name): Don't call
Karl Heuer <kwzh@gnu.org>
parents:
14295
diff
changeset
|
64 ;; Don't call expand-file-name on nil. mernst 7 Jan 96 |
d342009009c7
(uniquify-buffer-file-name): Don't call
Karl Heuer <kwzh@gnu.org>
parents:
14295
diff
changeset
|
65 ;; Check whether list-buffers-directory is bound. mernst 11 Oct 96 |
d342009009c7
(uniquify-buffer-file-name): Don't call
Karl Heuer <kwzh@gnu.org>
parents:
14295
diff
changeset
|
66 ;; Ignore non-file non-dired buffers. Colin Rafferty <craffert@ml.com> 3 Mar 97 |
19797
646589bc370b
Rename uniquify-fix-list-* to uniquify-fix-item-*.
Richard M. Stallman <rms@gnu.org>
parents:
19755
diff
changeset
|
67 ;; Use last component, not "", for file name of directories. mernst 27 Jun 97 |
646589bc370b
Rename uniquify-fix-list-* to uniquify-fix-item-*.
Richard M. Stallman <rms@gnu.org>
parents:
19755
diff
changeset
|
68 ;; Use directory-file-name; code cleanup. mernst 6 Sep 97 |
22140
26e470569368
(uniquify-ignore-buffers-re): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
20065
diff
changeset
|
69 ;; Add uniquify-ignore-buffers-re. |
26e470569368
(uniquify-ignore-buffers-re): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
20065
diff
changeset
|
70 ;; Andre Srinivasan <andre@visigenic.com> 9 Sep 97 |
33700
32c5f03d36c9
(uniquify-list-buffers-directory-modes): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
27686
diff
changeset
|
71 ;; Add uniquify-list-buffers-directory-modes |
32c5f03d36c9
(uniquify-list-buffers-directory-modes): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
27686
diff
changeset
|
72 ;; Stefan Monnier <monnier@cs.yale.edu> 17 Nov 2000 |
38665
876a8018d21f
Code cleanup, speed and consing improvements for uniquify.el.
Francesco Potortì <pot@gnu.org>
parents:
38651
diff
changeset
|
73 ;; Algorithm and data structure changed to reduce consing with lots of buffers |
92304
0a7ef96a09e4
(uniquify-buffer-base-name): Undo last change. Should be
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92267
diff
changeset
|
74 ;; Francesco Potortì <pot@gnu.org> (ideas by rms and monnier) 2001-07-18 |
13814 | 75 |
76 ;; Valuable feedback was provided by | |
77 ;; Paul Smith <psmith@baynetworks.com>, | |
78 ;; Alastair Burt <burt@dfki.uni-kl.de>, | |
79 ;; Bob Weiner <weiner@footloose.sps.mot.com>, | |
80 ;; Albert L. Ting <alt@vlibs.com>, | |
17145
d342009009c7
(uniquify-buffer-file-name): Don't call
Karl Heuer <kwzh@gnu.org>
parents:
14295
diff
changeset
|
81 ;; gyro@reasoning.com, |
d342009009c7
(uniquify-buffer-file-name): Don't call
Karl Heuer <kwzh@gnu.org>
parents:
14295
diff
changeset
|
82 ;; Bryan O'Sullivan <bos@eng.sun.com>. |
13814 | 83 |
84 | |
85 ;;; Code: | |
86 | |
27686
888000b8e8b6
(toplevel): Require CL at compile time.
Gerd Moellmann <gerd@gnu.org>
parents:
26444
diff
changeset
|
87 (eval-when-compile (require 'cl)) |
13814 | 88 |
89 ;;; User-visible variables | |
90 | |
17414
f967f12c8ec8
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17145
diff
changeset
|
91 (defgroup uniquify nil |
64025
c101699af337
(uniquify): Finish `defgroup' description with period.
Juanma Barranquero <lekktu@gmail.com>
parents:
62531
diff
changeset
|
92 "Unique buffer names dependent on file name." |
107378
904ccd8f2acb
Reorganize Custom groups.
Chong Yidong <cyd@stupidchicken.com>
parents:
106815
diff
changeset
|
93 :group 'files) |
17414
f967f12c8ec8
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17145
diff
changeset
|
94 |
f967f12c8ec8
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17145
diff
changeset
|
95 |
18375
b547822f0a11
(delay-uniquify-rationalize-file-buffer-names): Remove this hook here,
Richard M. Stallman <rms@gnu.org>
parents:
17414
diff
changeset
|
96 (defcustom uniquify-buffer-name-style nil |
81969
d0dd4d423df4
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
97 "If non-nil, buffer names are uniquified with parts of directory name. |
14295 | 98 The value determines the buffer name style and is one of `forward', |
36141
02c61ff8a12b
(uniquify-buffer-name-style): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
33700
diff
changeset
|
99 `reverse', `post-forward', or `post-forward-angle-brackets'. |
14295 | 100 For example, files `/foo/bar/mumble/name' and `/baz/quux/mumble/name' |
101 would have the following buffer names in the various styles: | |
13814 | 102 forward bar/mumble/name quux/mumble/name |
103 reverse name\\mumble\\bar name\\mumble\\quux | |
104 post-forward name|bar/mumble name|quux/mumble | |
105 post-forward-angle-brackets name<bar/mumble> name<quux/mumble> | |
81969
d0dd4d423df4
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
106 nil name name<2> |
d0dd4d423df4
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
107 Of course, the \"mumble\" part may be stripped as well, depending on the setting |
d0dd4d423df4
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
108 of `uniquify-strip-common-suffix'." |
17414
f967f12c8ec8
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17145
diff
changeset
|
109 :type '(radio (const forward) |
f967f12c8ec8
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17145
diff
changeset
|
110 (const reverse) |
f967f12c8ec8
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17145
diff
changeset
|
111 (const post-forward) |
19044
192305191a1f
(uniquify-buffer-name-style): Fix typo.
Richard M. Stallman <rms@gnu.org>
parents:
18876
diff
changeset
|
112 (const post-forward-angle-brackets) |
18375
b547822f0a11
(delay-uniquify-rationalize-file-buffer-names): Remove this hook here,
Richard M. Stallman <rms@gnu.org>
parents:
17414
diff
changeset
|
113 (const :tag "standard Emacs behavior (nil)" nil)) |
62531
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
59381
diff
changeset
|
114 :require 'uniquify |
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
59381
diff
changeset
|
115 :group 'uniquify) |
13814 | 116 |
50971
28d8b4a38ce1
(uniquify-after-kill-buffer-p): Set default to t.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50945
diff
changeset
|
117 (defcustom uniquify-after-kill-buffer-p t |
50906
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
118 "If non-nil, rerationalize buffer names after a buffer has been killed." |
62531
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
59381
diff
changeset
|
119 :type 'boolean |
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
59381
diff
changeset
|
120 :group 'uniquify) |
13814 | 121 |
17414
f967f12c8ec8
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17145
diff
changeset
|
122 (defcustom uniquify-ask-about-buffer-names-p nil |
81969
d0dd4d423df4
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
123 "If non-nil, permit user to choose names for buffers with same base file. |
13814 | 124 If the user chooses to name a buffer, uniquification is preempted and no |
17414
f967f12c8ec8
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17145
diff
changeset
|
125 other buffer names are changed." |
62531
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
59381
diff
changeset
|
126 :type 'boolean |
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
59381
diff
changeset
|
127 :group 'uniquify) |
13814 | 128 |
50785
2fb36b4b42f5
(uniquify-ignore-buffers-re): Change default to match some Gnus buffers.
Richard M. Stallman <rms@gnu.org>
parents:
48833
diff
changeset
|
129 ;; The default value matches certain Gnus buffers. |
50971
28d8b4a38ce1
(uniquify-after-kill-buffer-p): Set default to t.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50945
diff
changeset
|
130 (defcustom uniquify-ignore-buffers-re nil |
81969
d0dd4d423df4
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
131 "Regular expression matching buffer names that should not be uniquified. |
22140
26e470569368
(uniquify-ignore-buffers-re): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
20065
diff
changeset
|
132 For instance, set this to \"^draft-[0-9]+$\" to avoid having uniquify rename |
26e470569368
(uniquify-ignore-buffers-re): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
20065
diff
changeset
|
133 draft buffers even if `uniquify-after-kill-buffer-p' is non-nil and the |
26e470569368
(uniquify-ignore-buffers-re): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
20065
diff
changeset
|
134 visited file name isn't the same as that of the buffer." |
62531
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
59381
diff
changeset
|
135 :type '(choice (const :tag "Uniquify all buffers" nil) regexp) |
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
59381
diff
changeset
|
136 :group 'uniquify) |
22140
26e470569368
(uniquify-ignore-buffers-re): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
20065
diff
changeset
|
137 |
17414
f967f12c8ec8
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17145
diff
changeset
|
138 (defcustom uniquify-min-dir-content 0 |
81969
d0dd4d423df4
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
139 "Minimum number of directory name components included in buffer name." |
62531
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
59381
diff
changeset
|
140 :type 'integer |
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
59381
diff
changeset
|
141 :group 'uniquify) |
13814 | 142 |
17414
f967f12c8ec8
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17145
diff
changeset
|
143 (defcustom uniquify-separator nil |
81969
d0dd4d423df4
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
144 "String separator for buffer name components. |
14295 | 145 When `uniquify-buffer-name-style' is `post-forward', separates |
13814 | 146 base file name from directory part in buffer names (default \"|\"). |
14295 | 147 When `uniquify-buffer-name-style' is `reverse', separates all |
17414
f967f12c8ec8
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17145
diff
changeset
|
148 file name components (default \"\\\")." |
62531
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
59381
diff
changeset
|
149 :type '(choice (const nil) string) |
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
59381
diff
changeset
|
150 :group 'uniquify) |
13814 | 151 |
17414
f967f12c8ec8
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17145
diff
changeset
|
152 (defcustom uniquify-trailing-separator-p nil |
81969
d0dd4d423df4
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
153 "If non-nil, add a file name separator to dired buffer names. |
14295 | 154 If `uniquify-buffer-name-style' is `forward', add the separator at the end; |
155 if it is `reverse', add the separator at the beginning; otherwise, this | |
17414
f967f12c8ec8
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
17145
diff
changeset
|
156 variable is ignored." |
62531
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
59381
diff
changeset
|
157 :type 'boolean |
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
59381
diff
changeset
|
158 :group 'uniquify) |
13814 | 159 |
50906
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
160 (defcustom uniquify-strip-common-suffix |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
161 ;; Using it when uniquify-min-dir-content>0 doesn't make much sense. |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
162 (eq 0 uniquify-min-dir-content) |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
163 "If non-nil, strip common directory suffixes of conflicting files. |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
164 E.g. if you open /a1/b/c/d and /a2/b/c/d, the buffer names will say |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
165 \"d|a1\" and \"d|a2\" instead of \"d|a1/b/c\" and \"d|a2/b/c\". |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
166 This can be handy when you have deep parallel hierarchies." |
62531
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
59381
diff
changeset
|
167 :type 'boolean |
c905fcf5e3d9
Specify missing group (and type, if simple) in defcustom.
Juanma Barranquero <lekktu@gmail.com>
parents:
59381
diff
changeset
|
168 :group 'uniquify) |
50906
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
169 |
96477
25bcd36bb679
(uniquify-list-buffers-directory-modes): Add vc-dir-mode.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
95658
diff
changeset
|
170 (defvar uniquify-list-buffers-directory-modes '(dired-mode cvs-mode vc-dir-mode) |
33700
32c5f03d36c9
(uniquify-list-buffers-directory-modes): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
27686
diff
changeset
|
171 "List of modes for which uniquify should obey `list-buffers-directory'. |
32c5f03d36c9
(uniquify-list-buffers-directory-modes): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
27686
diff
changeset
|
172 That means that when `buffer-file-name' is set to nil, `list-buffers-directory' |
32c5f03d36c9
(uniquify-list-buffers-directory-modes): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
27686
diff
changeset
|
173 contains the name of the directory which the buffer is visiting.") |
13814 | 174 |
175 ;;; Utilities | |
176 | |
19797
646589bc370b
Rename uniquify-fix-list-* to uniquify-fix-item-*.
Richard M. Stallman <rms@gnu.org>
parents:
19755
diff
changeset
|
177 ;; uniquify-fix-list data structure |
50814
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
178 (defstruct (uniquify-item |
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
179 (:constructor nil) (:copier nil) |
50906
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
180 (:constructor uniquify-make-item |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
181 (base dirname buffer &optional proposed))) |
50876
3311a93359a2
(uniquify-item, uniquify-get-proposed-name)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50844
diff
changeset
|
182 base dirname buffer proposed) |
13814 | 183 |
184 ;; Internal variables used free | |
185 (defvar uniquify-possibly-resolvable nil) | |
186 | |
50844
86903fed9f75
(uniquify-managed): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50826
diff
changeset
|
187 (defvar uniquify-managed nil |
50877
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
188 "Non-nil if the name of this buffer is managed by uniquify. |
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
189 It actually holds the list of `uniquify-item's corresponding to the conflict.") |
50844
86903fed9f75
(uniquify-managed): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50826
diff
changeset
|
190 (make-variable-buffer-local 'uniquify-managed) |
86903fed9f75
(uniquify-managed): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50826
diff
changeset
|
191 (put 'uniquify-managed 'permanent-local t) |
86903fed9f75
(uniquify-managed): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50826
diff
changeset
|
192 |
91840
53e2227d1fae
(uniquify-buffer-base-name): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
87649
diff
changeset
|
193 ;; Used in desktop.el to save the non-uniquified buffer name |
53e2227d1fae
(uniquify-buffer-base-name): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
87649
diff
changeset
|
194 (defun uniquify-buffer-base-name () |
53e2227d1fae
(uniquify-buffer-base-name): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
87649
diff
changeset
|
195 "Return the base name of the current buffer. |
92304
0a7ef96a09e4
(uniquify-buffer-base-name): Undo last change. Should be
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92267
diff
changeset
|
196 Return nil if the buffer is not managed by uniquify." |
91840
53e2227d1fae
(uniquify-buffer-base-name): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
87649
diff
changeset
|
197 (and uniquify-managed |
92304
0a7ef96a09e4
(uniquify-buffer-base-name): Undo last change. Should be
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92267
diff
changeset
|
198 (uniquify-item-base (car uniquify-managed)))) |
91840
53e2227d1fae
(uniquify-buffer-base-name): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
87649
diff
changeset
|
199 |
13814 | 200 ;;; Main entry point. |
201 | |
50914
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
202 (defun uniquify-rationalize-file-buffer-names (base dirname newbuf) |
33700
32c5f03d36c9
(uniquify-list-buffers-directory-modes): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
27686
diff
changeset
|
203 "Make file buffer names unique by adding segments from file name. |
13814 | 204 If `uniquify-min-dir-content' > 0, always pulls that many |
47644
de6f2422c09f
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46899
diff
changeset
|
205 file name elements. |
50942
46d187316243
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50914
diff
changeset
|
206 Arguments BASE, DIRNAME, and NEWBUF specify the new buffer that causes |
59380
7764df4e45e1
(uniquify-rationalize-file-buffer-names): Re-add an interactive spec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59130
diff
changeset
|
207 this rationalization." |
7764df4e45e1
(uniquify-rationalize-file-buffer-names): Re-add an interactive spec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59130
diff
changeset
|
208 (interactive |
7764df4e45e1
(uniquify-rationalize-file-buffer-names): Re-add an interactive spec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59130
diff
changeset
|
209 (list (if uniquify-managed |
7764df4e45e1
(uniquify-rationalize-file-buffer-names): Re-add an interactive spec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59130
diff
changeset
|
210 (uniquify-item-base (car uniquify-managed)) (buffer-name)) |
7764df4e45e1
(uniquify-rationalize-file-buffer-names): Re-add an interactive spec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59130
diff
changeset
|
211 (uniquify-buffer-file-name (current-buffer)) |
7764df4e45e1
(uniquify-rationalize-file-buffer-names): Re-add an interactive spec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59130
diff
changeset
|
212 (current-buffer))) |
59381
77618102ddc4
(uniquify-rationalize-file-buffer-names): Fix corner case when renaming
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59380
diff
changeset
|
213 ;; Make sure we don't get confused by outdated uniquify-managed info in |
77618102ddc4
(uniquify-rationalize-file-buffer-names): Fix corner case when renaming
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59380
diff
changeset
|
214 ;; this buffer. |
77618102ddc4
(uniquify-rationalize-file-buffer-names): Fix corner case when renaming
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59380
diff
changeset
|
215 (with-current-buffer newbuf (setq uniquify-managed nil)) |
77618102ddc4
(uniquify-rationalize-file-buffer-names): Fix corner case when renaming
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59380
diff
changeset
|
216 (when dirname |
50914
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
217 (setq dirname (expand-file-name (directory-file-name dirname))) |
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
218 (let ((fix-list (list (uniquify-make-item base dirname newbuf))) |
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
219 items) |
50883
7b95d60a7574
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50877
diff
changeset
|
220 (dolist (buffer (buffer-list)) |
50914
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
221 (when (and (not (and uniquify-ignore-buffers-re |
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
222 (string-match uniquify-ignore-buffers-re |
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
223 (buffer-name buffer)))) |
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
224 ;; Only try to rename buffers we actually manage. |
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
225 (setq items (buffer-local-value 'uniquify-managed buffer)) |
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
226 (equal base (uniquify-item-base (car items))) |
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
227 ;; Don't re-add stuff we already have. Actually this |
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
228 ;; whole `and' test should only match at most once. |
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
229 (not (memq (car items) fix-list))) |
50942
46d187316243
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50914
diff
changeset
|
230 (unless (cdr items) |
46d187316243
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50914
diff
changeset
|
231 ;; If there was no conflict, the buffer-name is equal to the |
46d187316243
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50914
diff
changeset
|
232 ;; base-name and we may have missed a rename-buffer because |
46d187316243
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50914
diff
changeset
|
233 ;; of code like in set-visited-file-name: |
46d187316243
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50914
diff
changeset
|
234 ;; (or (string= new-name (buffer-name)) (rename-buffer new-name t)) |
46d187316243
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50914
diff
changeset
|
235 ;; So we need to refresh the dirname of the uniquify-item. |
46d187316243
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50914
diff
changeset
|
236 (setf (uniquify-item-dirname (car items)) |
46d187316243
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50914
diff
changeset
|
237 (uniquify-buffer-file-name |
46d187316243
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50914
diff
changeset
|
238 (uniquify-item-buffer (car items)))) |
50971
28d8b4a38ce1
(uniquify-after-kill-buffer-p): Set default to t.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50945
diff
changeset
|
239 ;; This shouldn't happen, but maybe there's no dirname any more. |
50942
46d187316243
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50914
diff
changeset
|
240 (unless (uniquify-item-dirname (car items)) |
46d187316243
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50914
diff
changeset
|
241 (with-current-buffer (uniquify-item-buffer (car items)) |
50945
4151ece07b08
(uniquify-rationalize-file-buffer-names): Thinko.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50942
diff
changeset
|
242 (setq uniquify-managed nil)) |
4151ece07b08
(uniquify-rationalize-file-buffer-names): Thinko.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50942
diff
changeset
|
243 (setq items nil))) |
78659
01a61e30fa32
(uniquify-rationalize-file-buffer-names): Check liveness
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78236
diff
changeset
|
244 ;; In case we missed some calls to kill-buffer, there may be dead |
01a61e30fa32
(uniquify-rationalize-file-buffer-names): Check liveness
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78236
diff
changeset
|
245 ;; buffers in uniquify-managed, so filter them out. |
01a61e30fa32
(uniquify-rationalize-file-buffer-names): Check liveness
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78236
diff
changeset
|
246 (setq items |
01a61e30fa32
(uniquify-rationalize-file-buffer-names): Check liveness
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78236
diff
changeset
|
247 (delq nil (mapcar |
01a61e30fa32
(uniquify-rationalize-file-buffer-names): Check liveness
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78236
diff
changeset
|
248 (lambda (item) |
01a61e30fa32
(uniquify-rationalize-file-buffer-names): Check liveness
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78236
diff
changeset
|
249 (if (buffer-live-p (uniquify-item-buffer item)) |
01a61e30fa32
(uniquify-rationalize-file-buffer-names): Check liveness
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78236
diff
changeset
|
250 item)) |
01a61e30fa32
(uniquify-rationalize-file-buffer-names): Check liveness
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78236
diff
changeset
|
251 items))) |
50914
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
252 (setq fix-list (append fix-list items)))) |
50883
7b95d60a7574
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50877
diff
changeset
|
253 ;; selects buffers whose names may need changing, and others that |
7b95d60a7574
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50877
diff
changeset
|
254 ;; may conflict, then bring conflicting names together |
7b95d60a7574
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50877
diff
changeset
|
255 (uniquify-rationalize fix-list)))) |
13814 | 256 |
19797
646589bc370b
Rename uniquify-fix-list-* to uniquify-fix-item-*.
Richard M. Stallman <rms@gnu.org>
parents:
19755
diff
changeset
|
257 ;; uniquify's version of buffer-file-name; result never contains trailing slash |
13814 | 258 (defun uniquify-buffer-file-name (buffer) |
50914
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
259 "Return name of directory, file BUFFER is visiting, or nil if none. |
33700
32c5f03d36c9
(uniquify-list-buffers-directory-modes): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
27686
diff
changeset
|
260 Works on ordinary file-visiting buffers and buffers whose mode is mentioned |
32c5f03d36c9
(uniquify-list-buffers-directory-modes): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
27686
diff
changeset
|
261 in `uniquify-list-buffers-directory-modes', otherwise returns nil." |
50914
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
262 (with-current-buffer buffer |
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
263 (let ((filename |
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
264 (or buffer-file-name |
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
265 (if (memq major-mode uniquify-list-buffers-directory-modes) |
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
266 list-buffers-directory)))) |
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
267 (when filename |
50942
46d187316243
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50914
diff
changeset
|
268 (directory-file-name |
46d187316243
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50914
diff
changeset
|
269 (file-name-directory |
46d187316243
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50914
diff
changeset
|
270 (expand-file-name |
46d187316243
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50914
diff
changeset
|
271 (directory-file-name filename)))))))) |
13814 | 272 |
50877
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
273 (defun uniquify-rerationalize-w/o-cb (fix-list) |
81969
d0dd4d423df4
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
75347
diff
changeset
|
274 "Re-rationalize the buffers in FIX-LIST, but ignoring `current-buffer'." |
50877
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
275 (let ((new-fix-list nil)) |
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
276 (dolist (item fix-list) |
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
277 (let ((buf (uniquify-item-buffer item))) |
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
278 (unless (or (eq buf (current-buffer)) (not (buffer-live-p buf))) |
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
279 (push item new-fix-list)))) |
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
280 (when new-fix-list |
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
281 (uniquify-rationalize new-fix-list)))) |
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
282 |
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
283 (defun uniquify-rationalize (fix-list) |
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
284 ;; Set up uniquify to re-rationalize after killing/renaming |
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
285 ;; if there is a conflict. |
50906
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
286 (dolist (item fix-list) |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
287 (with-current-buffer (uniquify-item-buffer item) |
50942
46d187316243
(uniquify-rationalize-file-buffer-names):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50914
diff
changeset
|
288 ;; Refresh the dirnames and proposed names. |
50906
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
289 (setf (uniquify-item-proposed item) |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
290 (uniquify-get-proposed-name (uniquify-item-base item) |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
291 (uniquify-item-dirname item))) |
50877
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
292 (setq uniquify-managed fix-list))) |
50906
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
293 ;; Strip any shared last directory names of the dirname. |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
294 (when (and (cdr fix-list) uniquify-strip-common-suffix) |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
295 (let ((strip t)) |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
296 (while (let* ((base (file-name-nondirectory |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
297 (uniquify-item-dirname (car fix-list)))) |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
298 (items fix-list)) |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
299 (when (> (length base) 0) |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
300 (while (and strip items) |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
301 (unless (equal base (file-name-nondirectory |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
302 (uniquify-item-dirname (pop items)))) |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
303 (setq strip nil))) |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
304 strip)) |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
305 ;; It's all the same => strip. |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
306 (dolist (item (prog1 fix-list (setq fix-list nil))) |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
307 ;; Create new items because the old ones are kept (with the true |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
308 ;; `dirname') for later rerationalizing. |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
309 (push (uniquify-make-item (uniquify-item-base item) |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
310 (let ((f (file-name-directory |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
311 (uniquify-item-dirname item)))) |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
312 (and f (directory-file-name f))) |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
313 (uniquify-item-buffer item) |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
314 (uniquify-item-proposed item)) |
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
315 fix-list))))) |
50877
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
316 ;; If uniquify-min-dir-content is 0, this will end up just |
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
317 ;; passing fix-list to uniquify-rationalize-conflicting-sublist. |
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
318 (uniquify-rationalize-a-list fix-list)) |
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
319 |
38651
683a60ba2533
These changes correct a corner case that the old code managed correctly.
Francesco Potortì <pot@gnu.org>
parents:
38641
diff
changeset
|
320 (defun uniquify-item-greaterp (item1 item2) |
50814
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
321 (string-lessp (uniquify-item-proposed item2) |
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
322 (uniquify-item-proposed item1))) |
13814 | 323 |
50814
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
324 (defun uniquify-rationalize-a-list (fix-list &optional depth) |
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
325 (unless depth (setq depth uniquify-min-dir-content)) |
19840
f66b5085a537
Use uniquify-file-name-nondirectory throughout; documentation tweaks.
Richard M. Stallman <rms@gnu.org>
parents:
19797
diff
changeset
|
326 (let (conflicting-sublist ; all elements have the same proposed name |
38665
876a8018d21f
Code cleanup, speed and consing improvements for uniquify.el.
Francesco Potortì <pot@gnu.org>
parents:
38651
diff
changeset
|
327 (old-proposed "") |
876a8018d21f
Code cleanup, speed and consing improvements for uniquify.el.
Francesco Potortì <pot@gnu.org>
parents:
38651
diff
changeset
|
328 proposed) |
50814
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
329 ;; Divide fix-list into items with same proposed names and pass them |
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
330 ;; to uniquify-rationalize-conflicting-sublist. |
94473
377add9b3eb4
(uniquify-rationalize-a-list): Beware of side-effects.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92304
diff
changeset
|
331 (dolist (item (sort (copy-sequence fix-list) 'uniquify-item-greaterp)) |
50814
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
332 (setq proposed (uniquify-item-proposed item)) |
38665
876a8018d21f
Code cleanup, speed and consing improvements for uniquify.el.
Francesco Potortì <pot@gnu.org>
parents:
38651
diff
changeset
|
333 (unless (equal proposed old-proposed) |
38536
09aca87f88ce
Overall speedup when using many buffers.
Francesco Potortì <pot@gnu.org>
parents:
38222
diff
changeset
|
334 (uniquify-rationalize-conflicting-sublist conflicting-sublist |
38665
876a8018d21f
Code cleanup, speed and consing improvements for uniquify.el.
Francesco Potortì <pot@gnu.org>
parents:
38651
diff
changeset
|
335 old-proposed depth) |
38536
09aca87f88ce
Overall speedup when using many buffers.
Francesco Potortì <pot@gnu.org>
parents:
38222
diff
changeset
|
336 (setq conflicting-sublist nil)) |
09aca87f88ce
Overall speedup when using many buffers.
Francesco Potortì <pot@gnu.org>
parents:
38222
diff
changeset
|
337 (push item conflicting-sublist) |
38665
876a8018d21f
Code cleanup, speed and consing improvements for uniquify.el.
Francesco Potortì <pot@gnu.org>
parents:
38651
diff
changeset
|
338 (setq old-proposed proposed)) |
876a8018d21f
Code cleanup, speed and consing improvements for uniquify.el.
Francesco Potortì <pot@gnu.org>
parents:
38651
diff
changeset
|
339 (uniquify-rationalize-conflicting-sublist conflicting-sublist |
876a8018d21f
Code cleanup, speed and consing improvements for uniquify.el.
Francesco Potortì <pot@gnu.org>
parents:
38651
diff
changeset
|
340 old-proposed depth))) |
13814 | 341 |
50876
3311a93359a2
(uniquify-item, uniquify-get-proposed-name)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50844
diff
changeset
|
342 (defun uniquify-get-proposed-name (base dirname &optional depth) |
50814
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
343 (unless depth (setq depth uniquify-min-dir-content)) |
50906
0dc88196f313
(uniquify-after-kill-buffer-p): Fix misleading docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50883
diff
changeset
|
344 (assert (equal (directory-file-name dirname) dirname)) ;No trailing slash. |
13814 | 345 |
39559
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
346 ;; Distinguish directories by adding extra separator. |
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
347 (if (and uniquify-trailing-separator-p |
50876
3311a93359a2
(uniquify-item, uniquify-get-proposed-name)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50844
diff
changeset
|
348 (file-directory-p (expand-file-name base dirname)) |
39559
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
349 (not (string-equal base ""))) |
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
350 (cond ((eq uniquify-buffer-name-style 'forward) |
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
351 (setq base (file-name-as-directory base))) |
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
352 ;; (setq base (concat base "/"))) |
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
353 ((eq uniquify-buffer-name-style 'reverse) |
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
354 (setq base (concat (or uniquify-separator "\\") base))))) |
13814 | 355 |
39559
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
356 (let ((extra-string nil) |
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
357 (n depth)) |
50876
3311a93359a2
(uniquify-item, uniquify-get-proposed-name)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50844
diff
changeset
|
358 (while (and (> n 0) dirname) |
3311a93359a2
(uniquify-item, uniquify-get-proposed-name)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50844
diff
changeset
|
359 (let ((file (file-name-nondirectory dirname))) |
3311a93359a2
(uniquify-item, uniquify-get-proposed-name)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50844
diff
changeset
|
360 (when (setq dirname (file-name-directory dirname)) |
3311a93359a2
(uniquify-item, uniquify-get-proposed-name)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50844
diff
changeset
|
361 (setq dirname (directory-file-name dirname))) |
39559
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
362 (setq n (1- n)) |
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
363 (push (if (zerop (length file)) ;nil or "". |
95658
ad3644a3612d
* uniquify.el (uniquify-get-proposed-name): Handle remote files.
Michael Albinus <michael.albinus@gmx.de>
parents:
94678
diff
changeset
|
364 (prog1 (or (file-remote-p dirname) "") |
ad3644a3612d
* uniquify.el (uniquify-get-proposed-name): Handle remote files.
Michael Albinus <michael.albinus@gmx.de>
parents:
94678
diff
changeset
|
365 (setq dirname nil)) ;Could be `dirname' iso "". |
39559
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
366 file) |
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
367 extra-string))) |
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
368 (when (zerop n) |
50876
3311a93359a2
(uniquify-item, uniquify-get-proposed-name)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50844
diff
changeset
|
369 (if (and dirname extra-string |
3311a93359a2
(uniquify-item, uniquify-get-proposed-name)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50844
diff
changeset
|
370 (equal dirname (file-name-directory dirname))) |
39559
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
371 ;; We're just before the root. Let's add the leading / already. |
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
372 ;; With "/a/b"+"/c/d/b" this leads to "/a/b" and "d/b" but with |
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
373 ;; "/a/b"+"/c/a/b" this leads to "/a/b" and "a/b". |
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
374 (push "" extra-string)) |
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
375 (setq uniquify-possibly-resolvable t)) |
13814 | 376 |
39559
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
377 (cond |
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
378 ((null extra-string) base) |
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
379 ((string-equal base "") ;Happens for dired buffers on the root directory. |
47863
9925c06ca5fb
(uniquify-get-proposed-name): Don't use directory-sep-char.
Richard M. Stallman <rms@gnu.org>
parents:
47644
diff
changeset
|
380 (mapconcat 'identity extra-string "/")) |
39559
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
381 ((eq uniquify-buffer-name-style 'reverse) |
47863
9925c06ca5fb
(uniquify-get-proposed-name): Don't use directory-sep-char.
Richard M. Stallman <rms@gnu.org>
parents:
47644
diff
changeset
|
382 (mapconcat 'identity |
9925c06ca5fb
(uniquify-get-proposed-name): Don't use directory-sep-char.
Richard M. Stallman <rms@gnu.org>
parents:
47644
diff
changeset
|
383 (cons base (nreverse extra-string)) |
9925c06ca5fb
(uniquify-get-proposed-name): Don't use directory-sep-char.
Richard M. Stallman <rms@gnu.org>
parents:
47644
diff
changeset
|
384 (or uniquify-separator "\\"))) |
39559
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
385 ((eq uniquify-buffer-name-style 'forward) |
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
386 (mapconcat 'identity (nconc extra-string (list base)) |
47863
9925c06ca5fb
(uniquify-get-proposed-name): Don't use directory-sep-char.
Richard M. Stallman <rms@gnu.org>
parents:
47644
diff
changeset
|
387 "/")) |
39559
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
388 ((eq uniquify-buffer-name-style 'post-forward) |
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
389 (concat base (or uniquify-separator "|") |
47863
9925c06ca5fb
(uniquify-get-proposed-name): Don't use directory-sep-char.
Richard M. Stallman <rms@gnu.org>
parents:
47644
diff
changeset
|
390 (mapconcat 'identity extra-string "/"))) |
39559
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
391 ((eq uniquify-buffer-name-style 'post-forward-angle-brackets) |
47863
9925c06ca5fb
(uniquify-get-proposed-name): Don't use directory-sep-char.
Richard M. Stallman <rms@gnu.org>
parents:
47644
diff
changeset
|
392 (concat base "<" (mapconcat 'identity extra-string "/") |
9925c06ca5fb
(uniquify-get-proposed-name): Don't use directory-sep-char.
Richard M. Stallman <rms@gnu.org>
parents:
47644
diff
changeset
|
393 ">")) |
39559
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
394 (t (error "Bad value for uniquify-buffer-name-style: %s" |
5851ee3f83f5
(uniquify-get-proposed-name): Don't assume dirsep is /.
Gerd Moellmann <gerd@gnu.org>
parents:
39400
diff
changeset
|
395 uniquify-buffer-name-style))))) |
13814 | 396 |
397 | |
19797
646589bc370b
Rename uniquify-fix-list-* to uniquify-fix-item-*.
Richard M. Stallman <rms@gnu.org>
parents:
19755
diff
changeset
|
398 ;; Deal with conflicting-sublist, all of whose elements have identical |
646589bc370b
Rename uniquify-fix-list-* to uniquify-fix-item-*.
Richard M. Stallman <rms@gnu.org>
parents:
19755
diff
changeset
|
399 ;; "base" components. |
38651
683a60ba2533
These changes correct a corner case that the old code managed correctly.
Francesco Potortì <pot@gnu.org>
parents:
38641
diff
changeset
|
400 (defun uniquify-rationalize-conflicting-sublist (conf-list old-name depth) |
683a60ba2533
These changes correct a corner case that the old code managed correctly.
Francesco Potortì <pot@gnu.org>
parents:
38641
diff
changeset
|
401 (when conf-list |
683a60ba2533
These changes correct a corner case that the old code managed correctly.
Francesco Potortì <pot@gnu.org>
parents:
38641
diff
changeset
|
402 (if (or (cdr conf-list) |
50814
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
403 ;; Check that the proposed name doesn't conflict with some |
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
404 ;; existing buffer. |
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
405 (let ((buf (get-buffer old-name))) |
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
406 (and buf (not (eq buf (uniquify-item-buffer (car conf-list))))))) |
38651
683a60ba2533
These changes correct a corner case that the old code managed correctly.
Francesco Potortì <pot@gnu.org>
parents:
38641
diff
changeset
|
407 (when uniquify-possibly-resolvable |
683a60ba2533
These changes correct a corner case that the old code managed correctly.
Francesco Potortì <pot@gnu.org>
parents:
38641
diff
changeset
|
408 (setq uniquify-possibly-resolvable nil |
683a60ba2533
These changes correct a corner case that the old code managed correctly.
Francesco Potortì <pot@gnu.org>
parents:
38641
diff
changeset
|
409 depth (1+ depth)) |
683a60ba2533
These changes correct a corner case that the old code managed correctly.
Francesco Potortì <pot@gnu.org>
parents:
38641
diff
changeset
|
410 (dolist (item conf-list) |
50814
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
411 (setf (uniquify-item-proposed item) |
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
412 (uniquify-get-proposed-name |
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
413 (uniquify-item-base item) |
50876
3311a93359a2
(uniquify-item, uniquify-get-proposed-name)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50844
diff
changeset
|
414 (uniquify-item-dirname item) |
50814
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
415 depth))) |
38651
683a60ba2533
These changes correct a corner case that the old code managed correctly.
Francesco Potortì <pot@gnu.org>
parents:
38641
diff
changeset
|
416 (uniquify-rationalize-a-list conf-list depth)) |
683a60ba2533
These changes correct a corner case that the old code managed correctly.
Francesco Potortì <pot@gnu.org>
parents:
38641
diff
changeset
|
417 (unless (string= old-name "") |
683a60ba2533
These changes correct a corner case that the old code managed correctly.
Francesco Potortì <pot@gnu.org>
parents:
38641
diff
changeset
|
418 (uniquify-rename-buffer (car conf-list) old-name))))) |
683a60ba2533
These changes correct a corner case that the old code managed correctly.
Francesco Potortì <pot@gnu.org>
parents:
38641
diff
changeset
|
419 |
13814 | 420 |
421 (defun uniquify-rename-buffer (item newname) | |
50814
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
422 (let ((buffer (uniquify-item-buffer item))) |
38665
876a8018d21f
Code cleanup, speed and consing improvements for uniquify.el.
Francesco Potortì <pot@gnu.org>
parents:
38651
diff
changeset
|
423 (unless (equal newname (buffer-name buffer)) |
50814
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
424 (with-current-buffer buffer |
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
425 (let ((uniquify-buffer-name-style nil)) ;Avoid hooks on rename-buffer. |
50844
86903fed9f75
(uniquify-managed): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50826
diff
changeset
|
426 ;; Pass the `unique' arg, so the advice doesn't mark it as unmanaged. |
50814
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
427 (rename-buffer newname t)))))) |
13814 | 428 |
429 ;;; Hooks from the rest of Emacs | |
430 | |
99589
22a0d4deace0
(uniquify-maybe-rerationalize-w/o-cb): Remove
Glenn Morris <rgm@gnu.org>
parents:
96477
diff
changeset
|
431 (defun uniquify-maybe-rerationalize-w/o-cb () |
22a0d4deace0
(uniquify-maybe-rerationalize-w/o-cb): Remove
Glenn Morris <rgm@gnu.org>
parents:
96477
diff
changeset
|
432 "Re-rationalize buffer names, ignoring current buffer." |
22a0d4deace0
(uniquify-maybe-rerationalize-w/o-cb): Remove
Glenn Morris <rgm@gnu.org>
parents:
96477
diff
changeset
|
433 (and (cdr uniquify-managed) |
22a0d4deace0
(uniquify-maybe-rerationalize-w/o-cb): Remove
Glenn Morris <rgm@gnu.org>
parents:
96477
diff
changeset
|
434 uniquify-buffer-name-style |
22a0d4deace0
(uniquify-maybe-rerationalize-w/o-cb): Remove
Glenn Morris <rgm@gnu.org>
parents:
96477
diff
changeset
|
435 (uniquify-rerationalize-w/o-cb uniquify-managed))) |
22a0d4deace0
(uniquify-maybe-rerationalize-w/o-cb): Remove
Glenn Morris <rgm@gnu.org>
parents:
96477
diff
changeset
|
436 |
79247
cacef917c670
(uniquify-maybe-rerationalize-w/o-cb): Define it before use
Juanma Barranquero <lekktu@gmail.com>
parents:
79239
diff
changeset
|
437 ;; Buffer deletion |
cacef917c670
(uniquify-maybe-rerationalize-w/o-cb): Define it before use
Juanma Barranquero <lekktu@gmail.com>
parents:
79239
diff
changeset
|
438 ;; Rerationalize after a buffer is killed, to reduce coinciding buffer names. |
cacef917c670
(uniquify-maybe-rerationalize-w/o-cb): Define it before use
Juanma Barranquero <lekktu@gmail.com>
parents:
79239
diff
changeset
|
439 ;; This mechanism uses `kill-buffer-hook', which runs *before* deletion, so |
cacef917c670
(uniquify-maybe-rerationalize-w/o-cb): Define it before use
Juanma Barranquero <lekktu@gmail.com>
parents:
79239
diff
changeset
|
440 ;; it calls `uniquify-rerationalize-w/o-cb' to rerationalize the buffer list |
cacef917c670
(uniquify-maybe-rerationalize-w/o-cb): Define it before use
Juanma Barranquero <lekktu@gmail.com>
parents:
79239
diff
changeset
|
441 ;; ignoring the current buffer (which is going to be deleted anyway). |
99589
22a0d4deace0
(uniquify-maybe-rerationalize-w/o-cb): Remove
Glenn Morris <rgm@gnu.org>
parents:
96477
diff
changeset
|
442 (defun uniquify-kill-buffer-function () |
79247
cacef917c670
(uniquify-maybe-rerationalize-w/o-cb): Define it before use
Juanma Barranquero <lekktu@gmail.com>
parents:
79239
diff
changeset
|
443 "Re-rationalize buffer names, ignoring current buffer. |
cacef917c670
(uniquify-maybe-rerationalize-w/o-cb): Define it before use
Juanma Barranquero <lekktu@gmail.com>
parents:
79239
diff
changeset
|
444 For use on `kill-buffer-hook'." |
99589
22a0d4deace0
(uniquify-maybe-rerationalize-w/o-cb): Remove
Glenn Morris <rgm@gnu.org>
parents:
96477
diff
changeset
|
445 (and uniquify-after-kill-buffer-p |
22a0d4deace0
(uniquify-maybe-rerationalize-w/o-cb): Remove
Glenn Morris <rgm@gnu.org>
parents:
96477
diff
changeset
|
446 (uniquify-maybe-rerationalize-w/o-cb))) |
79247
cacef917c670
(uniquify-maybe-rerationalize-w/o-cb): Define it before use
Juanma Barranquero <lekktu@gmail.com>
parents:
79239
diff
changeset
|
447 |
cacef917c670
(uniquify-maybe-rerationalize-w/o-cb): Define it before use
Juanma Barranquero <lekktu@gmail.com>
parents:
79239
diff
changeset
|
448 ;; Ideally we'd like to add it buffer-locally, but that doesn't work |
cacef917c670
(uniquify-maybe-rerationalize-w/o-cb): Define it before use
Juanma Barranquero <lekktu@gmail.com>
parents:
79239
diff
changeset
|
449 ;; because kill-buffer-hook is not permanent-local :-( |
99589
22a0d4deace0
(uniquify-maybe-rerationalize-w/o-cb): Remove
Glenn Morris <rgm@gnu.org>
parents:
96477
diff
changeset
|
450 ;; FIXME kill-buffer-hook _is_ permanent-local in 22+. |
22a0d4deace0
(uniquify-maybe-rerationalize-w/o-cb): Remove
Glenn Morris <rgm@gnu.org>
parents:
96477
diff
changeset
|
451 (add-hook 'kill-buffer-hook 'uniquify-kill-buffer-function) |
79247
cacef917c670
(uniquify-maybe-rerationalize-w/o-cb): Define it before use
Juanma Barranquero <lekktu@gmail.com>
parents:
79239
diff
changeset
|
452 |
13814 | 453 ;; The logical place to put all this code is in generate-new-buffer-name. |
454 ;; It's written in C, so we would add a generate-new-buffer-name-function | |
455 ;; which, if non-nil, would be called instead of the C. One problem with | |
456 ;; that is that generate-new-buffer-name takes a potential buffer name as | |
457 ;; its argument -- not other information, such as what file the buffer will | |
458 ;; visit. | |
459 | |
460 ;; The below solution works because generate-new-buffer-name is called | |
461 ;; only by rename-buffer (which, as of 19.29, is never called from C) and | |
462 ;; generate-new-buffer, which is called only by Lisp functions | |
463 ;; create-file-buffer and rename-uniquely. Rename-uniquely generally | |
464 ;; isn't used for buffers visiting files, so it's sufficient to hook | |
46899
f00337f04e78
Use find-file-hook instead of find-file-hooks.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
46047
diff
changeset
|
465 ;; rename-buffer and create-file-buffer. (Setting find-file-hook isn't |
13814 | 466 ;; sufficient.) |
467 | |
468 (defadvice rename-buffer (after rename-buffer-uniquify activate) | |
469 "Uniquify buffer names with parts of directory name." | |
50877
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
470 (uniquify-maybe-rerationalize-w/o-cb) |
50844
86903fed9f75
(uniquify-managed): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50826
diff
changeset
|
471 (if (null (ad-get-arg 1)) ; no UNIQUE argument. |
86903fed9f75
(uniquify-managed): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50826
diff
changeset
|
472 ;; Mark this buffer so it won't be renamed by uniquify. |
86903fed9f75
(uniquify-managed): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50826
diff
changeset
|
473 (setq uniquify-managed nil) |
86903fed9f75
(uniquify-managed): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50826
diff
changeset
|
474 (when uniquify-buffer-name-style |
50877
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
475 ;; Rerationalize w.r.t the new name. |
c701779986a1
(uniquify-rationalize): New fun. Store the fix-list in uniquify-managed.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50876
diff
changeset
|
476 (uniquify-rationalize-file-buffer-names |
50914
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
477 (ad-get-arg 0) |
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
478 (uniquify-buffer-file-name (current-buffer)) |
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
479 (current-buffer)) |
50844
86903fed9f75
(uniquify-managed): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50826
diff
changeset
|
480 (setq ad-return-value (buffer-name (current-buffer)))))) |
13814 | 481 |
482 (defadvice create-file-buffer (after create-file-buffer-uniquify activate) | |
483 "Uniquify buffer names with parts of directory name." | |
484 (if uniquify-buffer-name-style | |
50914
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
485 (let ((filename (expand-file-name (directory-file-name (ad-get-arg 0))))) |
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
486 (uniquify-rationalize-file-buffer-names |
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
487 (file-name-nondirectory filename) |
26edd9033fca
Use the original buffer-name as `base' in place of the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50906
diff
changeset
|
488 (file-name-directory filename) ad-return-value)))) |
13814 | 489 |
79249
ed916d33c5ff
(uniquify-unload-function): New function and var.
Juanma Barranquero <lekktu@gmail.com>
parents:
79247
diff
changeset
|
490 ;;; The End |
ed916d33c5ff
(uniquify-unload-function): New function and var.
Juanma Barranquero <lekktu@gmail.com>
parents:
79247
diff
changeset
|
491 |
ed916d33c5ff
(uniquify-unload-function): New function and var.
Juanma Barranquero <lekktu@gmail.com>
parents:
79247
diff
changeset
|
492 (defun uniquify-unload-function () |
79257
60995c957b44
(uniquify-unload-function): Add docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
79249
diff
changeset
|
493 "Unload the uniquify library." |
79249
ed916d33c5ff
(uniquify-unload-function): New function and var.
Juanma Barranquero <lekktu@gmail.com>
parents:
79247
diff
changeset
|
494 (save-current-buffer |
ed916d33c5ff
(uniquify-unload-function): New function and var.
Juanma Barranquero <lekktu@gmail.com>
parents:
79247
diff
changeset
|
495 (let ((buffers nil)) |
ed916d33c5ff
(uniquify-unload-function): New function and var.
Juanma Barranquero <lekktu@gmail.com>
parents:
79247
diff
changeset
|
496 (dolist (buf (buffer-list)) |
ed916d33c5ff
(uniquify-unload-function): New function and var.
Juanma Barranquero <lekktu@gmail.com>
parents:
79247
diff
changeset
|
497 (set-buffer buf) |
ed916d33c5ff
(uniquify-unload-function): New function and var.
Juanma Barranquero <lekktu@gmail.com>
parents:
79247
diff
changeset
|
498 (when uniquify-managed |
ed916d33c5ff
(uniquify-unload-function): New function and var.
Juanma Barranquero <lekktu@gmail.com>
parents:
79247
diff
changeset
|
499 (push (cons buf (uniquify-item-base (car uniquify-managed))) buffers))) |
ed916d33c5ff
(uniquify-unload-function): New function and var.
Juanma Barranquero <lekktu@gmail.com>
parents:
79247
diff
changeset
|
500 (dolist (fun '(rename-buffer create-file-buffer)) |
ed916d33c5ff
(uniquify-unload-function): New function and var.
Juanma Barranquero <lekktu@gmail.com>
parents:
79247
diff
changeset
|
501 (ad-remove-advice fun 'after (intern (concat (symbol-name fun) "-uniquify"))) |
ed916d33c5ff
(uniquify-unload-function): New function and var.
Juanma Barranquero <lekktu@gmail.com>
parents:
79247
diff
changeset
|
502 (ad-update fun)) |
ed916d33c5ff
(uniquify-unload-function): New function and var.
Juanma Barranquero <lekktu@gmail.com>
parents:
79247
diff
changeset
|
503 (dolist (buf buffers) |
ed916d33c5ff
(uniquify-unload-function): New function and var.
Juanma Barranquero <lekktu@gmail.com>
parents:
79247
diff
changeset
|
504 (set-buffer (car buf)) |
ed916d33c5ff
(uniquify-unload-function): New function and var.
Juanma Barranquero <lekktu@gmail.com>
parents:
79247
diff
changeset
|
505 (rename-buffer (cdr buf) t)))) |
91840
53e2227d1fae
(uniquify-buffer-base-name): New function.
Juanma Barranquero <lekktu@gmail.com>
parents:
87649
diff
changeset
|
506 ;; continue standard unloading |
79249
ed916d33c5ff
(uniquify-unload-function): New function and var.
Juanma Barranquero <lekktu@gmail.com>
parents:
79247
diff
changeset
|
507 nil) |
ed916d33c5ff
(uniquify-unload-function): New function and var.
Juanma Barranquero <lekktu@gmail.com>
parents:
79247
diff
changeset
|
508 |
50814
28d06c5071e1
Move provide to end of file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50785
diff
changeset
|
509 (provide 'uniquify) |
52401 | 510 |
59380
7764df4e45e1
(uniquify-rationalize-file-buffer-names): Re-add an interactive spec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
59130
diff
changeset
|
511 ;; arch-tag: e763faa3-56c9-4903-8eb8-26e1c45a0065 |
13814 | 512 ;;; uniquify.el ends here |