lisp/erc/erc.el

18 ;; GNU Emacs is free software; you can redistribute it and/or modify
984 To be able to modify the inserted text, use `erc-insert-modify-hook' instead.
998 that will be sent, use `erc-send-modify-hook' instead.
1020 (defcustom erc-insert-modify-hook ()
1031   "This hook is called just after `erc-insert-modify-hook'.
1039 (defcustom erc-send-modify-hook nil
1054   "This hook is called just after `erc-send-modify-hook'.
1059 This function is called with narrowing, ala `erc-send-modify-hook'."
1077 (defvar erc-mode-syntax-table
1078   (let ((syntax-table (make-syntax-table)))
1079     (modify-syntax-entry ?\" ".   " syntax-table)
1080     (modify-syntax-entry ?\\ ".   " syntax-table)
1081     (modify-syntax-entry ?' "w   " syntax-table)
1083     (modify-syntax-entry ?< "." syntax-table)
1084     (modify-syntax-entry ?> "." syntax-table)
1085     syntax-table)
1226     ((add-hook 'erc-insert-modify-hook
1228     ((remove-hook 'erc-insert-modify-hook
1447   (set-syntax-table erc-mode-syntax-table)
1784   ;; modify `transforms' to specify what needs to be changed
2121 This function is the main entry point for ERC.
2277 Afterwards, `erc-insert-modify' and `erc-insert-post-hook' get called.
2311 		  (run-hooks 'erc-insert-modify-hook)
4605 (defun erc-update-channel-topic (channel topic &optional modify)
4611     (cond ((eq modify 'append)
4613 	  ((eq modify 'prepend)
4993 	  (run-hooks 'erc-send-modify-hook)
5012 	  (run-hooks 'erc-send-modify-hook)
5665 entry of `channel-members'."
6015 (defun erc-make-message-variable-name (catalog entry)
6018 		  (symbol-name catalog) "-" (symbol-name entry))))
6020 (defun erc-define-catalog-entry (catalog entry format-spec)
6022   (set (erc-make-message-variable-name catalog entry)
6027   (dolist (entry entries)
6028     (erc-define-catalog-entry catalog (car entry) (cdr entry))))
6033    (bad-syntax . "Error occurred - incorrect usage?\n%c %u\n%d")
6173 (defun erc-retrieve-catalog-entry (entry &optional catalog)
6181   (let ((var (erc-make-message-variable-name catalog entry)))
6184       (when (boundp (erc-make-message-variable-name 'english entry))
6185 	(symbol-value (erc-make-message-variable-name 'english entry))))))
6193   (let ((entry (erc-retrieve-catalog-entry msg)))
6194     (when (not entry)
6196     (when (functionp entry)
6197       (setq entry (apply entry args)))
6198     (format-spec entry (apply 'format-spec-make args))))