lisp/net/rcirc.el

40 ;; Open a new irc connection with:
41 ;; M-x irc RET
58 (defcustom rcirc-default-server "irc.freenode.net"
85 (defcustom rcirc-startup-channels-alist '(("^irc.freenode.net$" "#rcirc"))
247   "Coding system used to decode incoming irc messages."
252   "Coding system used to encode outgoing irc messages."
277   "Major-mode function to use in multiline edit buffers."
278   :type 'function
354 (defalias 'irc 'rcirc)
708 (define-key rcirc-mode-map (kbd "C-c C-b") 'rcirc-browse-url)
728 (defvar rcirc-browse-url-map (make-sparse-keymap)
731 (define-key rcirc-browse-url-map (kbd "RET") 'rcirc-browse-url-at-point)
732 (define-key rcirc-browse-url-map (kbd "<mouse-2>") 'rcirc-browse-url-at-mouse)
1465 (defvar rcirc-switch-to-buffer-function 'switch-to-buffer
1473   (funcall rcirc-switch-to-buffer-function rcirc-server-buffer))
1481 (defvar rcirc-last-non-irc-buffer nil
1487 The function given by `rcirc-switch-to-buffer-function' is used to
1497 	    (setq rcirc-last-non-irc-buffer (current-buffer)))
1498 	  (funcall rcirc-switch-to-buffer-function
1501 	  (if (not (and rcirc-last-non-irc-buffer
1502 			(buffer-live-p rcirc-last-non-irc-buffer)))
1505 	    (funcall rcirc-switch-to-buffer-function rcirc-last-non-irc-buffer)
1506 	    (setq rcirc-last-non-irc-buffer nil))
1731       (funcall rcirc-switch-to-buffer-function buffer))))
1896 (defvar rcirc-url-regexp
1916 (defun rcirc-browse-url (&optional arg)
1922     (browse-url (completing-read "rcirc browse-url: "
1926 (defun rcirc-browse-url-at-point (point)
1927   "Send URL at point to `browse-url'."
1931     (browse-url (buffer-substring-no-properties beg end))))
1933 (defun rcirc-browse-url-at-mouse (event)
1934   "Send URL at mouse click to `browse-url'."
1938       (rcirc-browse-url-at-point (posn-point position)))))
1951 Each function takes three arguments, PROCESS, SENDER, RESPONSE
1953 contains the text to manipulate.  Each function works on the text
2003   (while (re-search-forward rcirc-url-regexp nil t)
2006       (rcirc-add-face start end 'rcirc-url)
2008 					   'keymap rcirc-browse-url-map))
2009       ;; record the url
2010       (let ((url (buffer-substring-no-properties start end)))
2012 	  (push url rcirc-urls))))))
2353 (defface rcirc-my-nick			; font-lock-function-name-face
2468 (defface rcirc-url