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: 2014年7月30日 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]

AltStyle によって変換されたページ (->オリジナル) /