Re: ERC function return the nick

[Emanuel Berg]

GNU Hacker wrote:

> (defun my-erc-return-nick (str)
>   "return the nick"
>   (save-excursion
>     (goto-char (point-max))
>     (if (re-search-backward "<.*> ")
>       (if (re-search-forward ".*>")
>           (kill-ring-save
>            (+ (re-search-backward "<.*> ") 1)
>            (- (re-search-forward ".*>") 1) ) )) )
>   (current-kill 0) )

(defun erc-get-nick ()
  (save-excursion
    (re-search-backward "<\\(.+\\)>" nil t)
    (match-string-no-properties 1) ))

;; <nick>
;;
;; (erc-get-nick) ; test here

> But it return an error with irc modes or notices or
> stuff alike.

Error: see the `re-search-backward' docstring for the NOERROR
formal parameter ...

Bad hits: refine the REGEXP

> Also this function fill my kill-ring with useless nicks.

Well, stop killing them then :)

-- 
underground experts united
https://dataswamp.org/~incal