mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

Use local variable to determine if buffers should be renamed

Browse Source 
Fixes: debbugs:18300
This commit is contained in:
Kelvin White 2014-10-02 07:55:22 -04:00
parent 3af2917c91
commit 64a67db3cd
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/erc/ChangeLog
View File

@ -1,5 +1,10 @@
2014-10-02 Kelvin White <kwhite@gnu.org>
* erc.el (erc-rename-buffer-p): When set to t buffers will be
renamed to the current irc network.
(erc-format-target-and/or-network): Use `erc-rename-buffer-p' when
renaming buffers.
* erc-ring.el (erc-input-ring-setup): Fixes Bug #18599
2014-09-30 Stefan Monnier <monnier@iro.umontreal.ca>

7
lisp/erc/erc.el
View File

@ -1792,6 +1792,10 @@ buffer rather than a server buffer.")
"Used to keep track of how many times an attempt at changing nick is made.")
(make-variable-buffer-local 'erc-nick-change-attempt-count)
(defvar erc-rename-buffer-p nil
"When this is set to t, buffers will be renamed to network name if available")
(make-variable-buffer-local 'erc-rename-buffer-p)
(defun erc-migrate-modules (mods)
"Migrate old names of ERC modules to new ones."
;; modify `transforms' to specify what needs to be changed
@ -6227,7 +6231,8 @@ shortened server name instead."
"@" network-name))
((and network-name
(not (get-buffer network-name)))
(rename-buffer network-name)
(when erc-rename-buffer-p
(rename-buffer network-name))
network-name)
(t (buffer-name (current-buffer))))))