[Bug: 21.5.27] multiple default fonts vs. ERC

[zooko at zooko.com]

Hello Stephen J. Turnbull:

Thanks for the quick response.

> then elicit the bug and send us the resulting backtrace.

------- begin included backtrace
Debugger entered--Lisp error: (wrong-type-argument natnump -2410080708790921301)
  #<compiled-function nil "...(70)" [completion-ignore-case port host ports erc-server-alist srv t intern completing-read "Network: " erc-delete-dups mapcar #<compiled-function ... "...(7)" ... 2> assoc "Server: " delq nil #<compiled-function ... "...(9)" ... 2> 2 3 erc-ports-list random erc net erc-nick erc-user-full-name] 8 ("/usr/local/lib/emacs/xemacs-packages/lisp/erc/erc-nets.elc" . 36477) nil>()
  call-interactively(erc-server-select)
  command-execute(erc-server-select t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)
------- end included backtrace

And along the way I learned something else about how the error is triggered.
This custom.el works fine:

------- begin included custom.el (edited)
;; ...
(custom-set-faces
 '(default ((t (:size "12pt" :family "Lucida"))) t)
 '(erc-input-face ((t (:foreground "#777777"))))
 '(whitespace-visual-blank-face ((t (:background "#BFBFBF"))))
 '(whitespace-visual-tab-face ((t (:background "#B0B0C0")))))
(custom-set-faces
 '(default ((t (:size "11" :family "DejaVu Sans Mono"))) t))
;; ...
(require 'erc-viper)
(setq erc-current-nick-highlight-type 'nick)
(setq erc-keywords '("\\bsloth[-a-z]*\\b" "\\bgluttony[-a-z]*\\b"))
(setq erc-track-exclude-types '("JOIN" "PART" "QUIT" "NICK" "MODE"))
(setq erc-track-use-faces t)
(setq erc-track-faces-priority-list '(erc-current-nick-face erc-keyword-face))
(setq erc-log-channels-directory "~/.archive/")
(setq erc-save-buffer-on-part t)
(setq erc-track-priority-faces-only 'all)

(setq erc-autojoin-channels-alist '((".*" "#revctrl" "#darcs" "#tailor" "#python-win32" "#nowplaying" "#twisted" "#zxc" "#shtoom" "#python-dev" "#erights" "#mnet" "#revctrl")))

(defvar erc-channels-to-visit nil
    "Channels that have not yet been visited by erc-next-channel-buffer")
  (defun erc-next-channel-buffer ()
    "Switch to the next unvisited channel. See erc-channels-to-visit"
    (interactive)
    (when (null erc-channels-to-visit)
      (setq erc-channels-to-visit 
	    (remove (current-buffer) (erc-channel-list nil))))
    (let ((target (pop erc-channels-to-visit)))
      (if target 
	  (switch-to-buffer target))))
------- end included custom.el (edited)

And this one reliably triggers the bug:

------- begin included custom.el (edited)
;; ...
(custom-set-faces
 '(default ((t (:size "12pt" :family "Lucida"))) t)
 '(erc-input-face ((t (:foreground "#777777"))))
 '(whitespace-visual-blank-face ((t (:background "#BFBFBF"))))
 '(whitespace-visual-tab-face ((t (:background "#B0B0C0")))))
;; ...
(require 'erc-viper)
(setq erc-current-nick-highlight-type 'nick)
(setq erc-keywords '("\\bsloth[-a-z]*\\b" "\\bgluttony[-a-z]*\\b"))
(setq erc-track-exclude-types '("JOIN" "PART" "QUIT" "NICK" "MODE"))
(setq erc-track-use-faces t)
(setq erc-track-faces-priority-list '(erc-current-nick-face erc-keyword-face))
(setq erc-log-channels-directory "~/.archive/")
(setq erc-save-buffer-on-part t)
(setq erc-track-priority-faces-only 'all)

(setq erc-autojoin-channels-alist '((".*" "#revctrl" "#darcs" "#tailor" "#python-win32" "#nowplaying" "#twisted" "#zxc" "#shtoom" "#python-dev" "#erights" "#mnet" "#revctrl")))

(defvar erc-channels-to-visit nil
    "Channels that have not yet been visited by erc-next-channel-buffer")
  (defun erc-next-channel-buffer ()
    "Switch to the next unvisited channel. See erc-channels-to-visit"
    (interactive)
    (when (null erc-channels-to-visit)
      (setq erc-channels-to-visit 
	    (remove (current-buffer) (erc-channel-list nil))))
    (let ((target (pop erc-channels-to-visit)))
      (if target 
	  (switch-to-buffer target))))
;; ...
(custom-set-faces
 '(default ((t (:size "11" :family "DejaVu Sans Mono"))) t))
------- end included custom.el (edited)

Regards,

Zooko