lisp/net/rcirc.el

134 (defcustom rcirc-read-only-flag t
135   "*Non-nil means make text in IRC buffers read-only."
246 (defcustom rcirc-decode-coding-system 'utf-8
247   "Coding system used to decode incoming irc messages."
248   :type 'coding-system
251 (defcustom rcirc-encode-coding-system 'utf-8
252   "Coding system used to encode outgoing irc messages."
253   :type 'coding-system
256 (defcustom rcirc-coding-system-alist nil
257   "Alist to decide a coding system to use for a channel I/O operation.
263 VAL is either a coding system or a cons of coding systems.
264 If VAL is a coding system, it is used for both decoding and encoding
266 If VAL is a cons of coding systems, the car part is used for decoding,
271 		:value-type (choice coding-system
272 				    (cons (coding-system :tag "Decode")
273 					  (coding-system :tag "Encode"))))
329       (let* ((server (read-string "IRC Server: " rcirc-default-server))
330 	     (port (read-string "IRC Port: " (number-to-string rcirc-default-port)))
331 	     (nick (read-string "IRC Nick: " rcirc-default-nick))
333 			(read-string "IRC Channels: "
386       (set-process-coding-system process 'raw-text 'raw-text)
492 	  (let ((inhibit-read-only t))
578   (let ((string (concat (encode-coding-string string rcirc-encode-coding-system)
691 (defun set-rcirc-decode-coding-system (coding-system)
692   "Set the decode coding system used in this channel."
693   (interactive "zCoding system for incoming messages: ")
694   (setq rcirc-decode-coding-system coding-system))
696 (defun set-rcirc-encode-coding-system (coding-system)
697   "Set the encode coding system used in this channel."
698   (interactive "zCoding system for outgoing messages: ")
699   (setq rcirc-encode-coding-system coding-system))
767   (make-local-variable 'rcirc-decode-coding-system)
768   (make-local-variable 'rcirc-encode-coding-system)
769   (dolist (i rcirc-coding-system-alist)
774 	(setq rcirc-decode-coding-system (if (consp (cdr i)) (cadr i) (cdr i))
775 	      rcirc-encode-coding-system (if (consp (cdr i)) (cddr i) (cdr i))))))
817     (let ((inhibit-read-only t)
836 				       'read-only t 'field t
1206 	   (inhibit-read-only t))
1214 	    (setq text (decode-coding-string text rcirc-decode-coding-system))
1258 	  ;; set inserted text to be read-only
1259 	  (when rcirc-read-only-flag
1260 	    (put-text-property rcirc-prompt-start-marker fill-start 'read-only t)
1261 	    (let ((inhibit-read-only t))
1701         (setq target (completing-read "Message nick: "
1705           (setq message (read-string (format "Message %s: " target)))
1716   (interactive (list (completing-read "Query nick: "
1751     (setq nick (read-string "New nick: " (rcirc-nick process))))
1760           (setq channel (read-string "List names in channel: " target))))
1771       (setq topic (read-string "New Topic: " rcirc-topic)))
1779                 (completing-read "Whois: "
1785   (interactive (list (concat (read-string "Mode nick or channel: ")
1786                              " " (read-string "Mode: "))))
1807                 (concat (completing-read "Kick nick: "
1811                         (read-from-minibuffer "Kick reason: "))))
1922     (browse-url (completing-read "rcirc browse-url: "