Commit 2a4466ca authored by Deniz Dogan's avatar Deniz Dogan

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

(rcirc-nick-completion-format): New defcustom.
(rcirc-complete): Use it.
parent d95f875e
......@@ -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).
......
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment