procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/net/rcirc.el: New customizable nick completion format.

Browse source 
(rcirc-nick-completion-format): New defcustom.
(rcirc-complete): Use it.
This commit is contained in:
Deniz Dogan 2011-01-31 21:44:45 +01:00
parent d95f875e4c
commit 2a4466ca20
2 changed files with 20 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -15,6 +15,12 @@
2011-01-28T22:12:05Z!monnier@iro.umontreal.ca optional.
(compilation-parse-errors, compilation--flush-parse): Use it.
2011-01-31 Deniz Dogan <deniz.a.m.dogan@gmail.com>
* net/rcirc.el: New customizable nick completion format.
(rcirc-nick-completion-format): New defcustom.
(rcirc-complete): Use it.
2011-01-31 Deniz Dogan <deniz.a.m.dogan@gmail.com>
* net/rcirc.el: Clean log filenames (Bug#7933).

19
lisp/net/rcirc.el
View file

@ -322,6 +322,15 @@ and the cdr part is used for encoding."
:type 'function
:group 'rcirc)
(defcustom rcirc-nick-completion-format "%s: "
"Format string to use in nick completions.
The format string is only used when completing at the beginning
of a line. The string is passed as the first argument to
`format' with the nickname as the second argument."
:type 'string
:group 'rcirc)
(defvar rcirc-nick nil)
(defvar rcirc-prompt-start-marker nil)
@ -827,11 +836,11 @@ IRC command completion is performed only if '/' is the first input char."
(when completion
(delete-region rcirc-completion-start (point))
(insert
(concat completion
(cond
((= (aref completion 0) ?/) " ")
((= rcirc-completion-start rcirc-prompt-end-marker) ": ")
(t "")))))))
(cond
((= (aref completion 0) ?/) (concat completion " "))
((= rcirc-completion-start rcirc-prompt-end-marker)
(format rcirc-nick-completion-format completion))
(t completion))))))
(defun set-rcirc-decode-coding-system (coding-system)
"Set the decode coding system used in this channel."