Mercurial > emacs
comparison lisp/net/rcirc.el @ 69460:df75d16d140e
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-155
Remove nick-abbrevs stuff from rcirc.el
2006-03-13 Miles Bader <miles@gnu.org>
* lisp/net/rcirc.el (rcirc-nick-abbrevs): Variable removed.
(rcirc-abbrev-nick): Function removed.
(rcirc-format-response-string): Don't call `rcirc-abbrev-nick'.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 13 Mar 2006 10:01:06 +0000 |
| parents | 45e1ec6f858b |
| children | 1527bb09ec30 |
comparison
equal
deleted
inserted
replaced
| 69459:602d4778bd8a | 69460:df75d16d140e |
|---|---|
| 191 | 191 |
| 192 (defcustom rcirc-ignore-list () | 192 (defcustom rcirc-ignore-list () |
| 193 "List of ignored nicks. | 193 "List of ignored nicks. |
| 194 Use /ignore to list them, use /ignore NICK to add or remove a nick." | 194 Use /ignore to list them, use /ignore NICK to add or remove a nick." |
| 195 :type '(repeat string) | 195 :type '(repeat string) |
| 196 :group 'rcirc) | |
| 197 | |
| 198 (defcustom rcirc-nick-abbrevs nil | |
| 199 "List of short replacements for printing nicks." | |
| 200 :type '(alist :key-type (string :tag "Nick") | |
| 201 :value-type (string :tag "Abbrev")) | |
| 202 :group 'rcirc) | 196 :group 'rcirc) |
| 203 | 197 |
| 204 (defvar rcirc-ignore-list-automatic () | 198 (defvar rcirc-ignore-list-automatic () |
| 205 "List of ignored nicks added to `rcirc-ignore-list' because of renaming. | 199 "List of ignored nicks added to `rcirc-ignore-list' because of renaming. |
| 206 When an ignored person renames, their nick is added to both lists. | 200 When an ignored person renames, their nick is added to both lists. |
| 491 (defun rcirc-nick (process) | 485 (defun rcirc-nick (process) |
| 492 "Return PROCESS nick." | 486 "Return PROCESS nick." |
| 493 (with-rcirc-process-buffer process | 487 (with-rcirc-process-buffer process |
| 494 rcirc-nick)) | 488 rcirc-nick)) |
| 495 | 489 |
| 496 (defun rcirc-abbrev-nick (nick) | |
| 497 "If NICK has an entry in `rcirc-nick-abbrevs', return its abbreviation, | |
| 498 otherwise return NICK." | |
| 499 (or (cdr (assoc nick rcirc-nick-abbrevs)) nick)) | |
| 500 | |
| 501 (defvar rcirc-max-message-length 450 | 490 (defvar rcirc-max-message-length 450 |
| 502 "Messages longer than this value will be split.") | 491 "Messages longer than this value will be split.") |
| 503 | 492 |
| 504 (defun rcirc-send-message (process target message &optional noticep) | 493 (defun rcirc-send-message (process target message &optional noticep) |
| 505 "Send TARGET associated with PROCESS a privmsg with text MESSAGE. | 494 "Send TARGET associated with PROCESS a privmsg with text MESSAGE. |
| 973 ;; %n/%N -- nick | 962 ;; %n/%N -- nick |
| 974 (let ((nick (concat (if (string= (with-rcirc-process-buffer | 963 (let ((nick (concat (if (string= (with-rcirc-process-buffer |
| 975 process rcirc-server) | 964 process rcirc-server) |
| 976 sender) | 965 sender) |
| 977 "" | 966 "" |
| 978 (rcirc-abbrev-nick sender)) | 967 sender) |
| 979 (and target (concat "," target))))) | 968 (and target (concat "," target))))) |
| 980 (rcirc-facify nick | 969 (rcirc-facify nick |
| 981 (if (eq key ?n) | 970 (if (eq key ?n) |
| 982 face | 971 face |
| 983 (if (string= sender (rcirc-nick process)) | 972 (if (string= sender (rcirc-nick process)) |