emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

erc-format-nick and znc


From: Cédric Chépied
Subject: erc-format-nick and znc
Date: Wed, 30 Jul 2014 08:52:15 +0200
User-agent: Wanderlust/2.15.9 (Almost Unreal) SEMI/1.14.6 (Maruoka) FLIM/1.14.9 (Gojō) APEL/10.8 Emacs/24.4.50 (x86_64-unknown-linux-gnu) MULE/6.0 (HANACHIRUSATO)

Hi,

I'm using erc to connect to my znc server. I now have an error each time I need
to display buffer playback:

Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
  aref(nil 0)
  (memq (aref user 0) cl-struct-erc-server-user-tags)
  (and (memq (aref user 0) cl-struct-erc-server-user-tags))
  (or (and (memq (aref user 0) cl-struct-erc-server-user-tags)) (error "%s 
accessing a non-%s" (quote erc-server-user-nickname) (quote erc-server-user)))
  (progn (or (and (memq (aref user 0) cl-struct-erc-server-user-tags)) (error 
"%s accessing a non-%s" (quote erc-server-user-nickname) (quote 
erc-server-user))) (aref user 1))
  (let ((nick (progn (or (and (memq (aref user 0) 
cl-struct-erc-server-user-tags)) (error "%s accessing a non-%s" (quote 
erc-server-user-nickname) (quote erc-server-user))) (aref user 1)))) (concat 
(erc-propertize (erc-get-user-mode-prefix nick) (quote face) (quote 
erc-nick-prefix-face)) nick))
  erc-format-nick(nil nil)
  erc-server-PRIVMSG(#<process erc-localhost-2121> [cl-struct-erc-response 
":address@hidden PRIVMSG #gnaaaapouet :Buffer Playback..." "address@hidden" 
"PRIVMSG" ("#gnaaaapouet" "Buffer Playback...") "Buffer Playback..."])
  run-hook-with-args-until-success(erc-server-PRIVMSG #<process 
erc-localhost-2121> [cl-struct-erc-response ":address@hidden PRIVMSG 
#gnaaaapouet :Buffer Playback..." "address@hidden" "PRIVMSG" ("#gnaaaapouet" 
"Buffer Playback...") "Buffer Playback..."])
  erc-call-hooks(#<process erc-localhost-2121> [cl-struct-erc-response 
":address@hidden PRIVMSG #gnaaaapouet :Buffer Playback..." "address@hidden" 
"PRIVMSG" ("#gnaaaapouet" "Buffer Playback...") "Buffer Playback..."])
  erc-handle-parsed-server-response(#<process erc-localhost-2121> 
[cl-struct-erc-response ":address@hidden PRIVMSG #gnaaaapouet :Buffer 
Playback..." "address@hidden" "PRIVMSG" ("#gnaaaapouet" "Buffer Playback...") 
"Buffer Playback..."])
  erc-parse-server-response(#<process erc-localhost-2121> ":address@hidden 
PRIVMSG #gnaaaapouet :Buffer Playback...")
  erc-server-filter-function(#<process erc-localhost-2121> ":address@hidden 
PRIVMSG #gnaaaapouet :Buffer Playback...\n")
  read-event(nil t 1)
  sit-for(1)
  (while (consp --cl-var--) (setq network (car --cl-var--)) (znc-erc network) 
(sit-for 1) (setq --cl-var-- (cons network --cl-var--)) (setq --cl-var-- (cdr 
--cl-var--)))
  (let* ((--cl-var-- (znc-walk-all-servers :each (quote znc-endpoint-slug))) 
(network nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq network (car 
--cl-var--)) (znc-erc network) (sit-for 1) (setq --cl-var-- (cons network 
--cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))
  chep-all-erc()

I'm on master branch, commit 4d51f9c * ediff: Replace obsolete toggle-read-only
with read-only-mode

I fixed it with this code (just testing if user is non nil) and setting
erc-format-nick-function to my-erc-format-nick:

(defun my-erc-format-nick (&optional user _channel-data)
  "Return the nickname of USER.
See also `erc-format-nick-function'."
  (when user
  (let ((nick (erc-server-user-nickname user)))
    (concat (erc-propertize
             (erc-get-user-mode-prefix nick)
             'face 'erc-nick-prefix-face)
            nick))))

-- 
Cédric Chépied
<address@hidden>



reply via email to

[Prev in Thread] Current Thread [Next in Thread]