bug#61480: 30.0.50; Error: void-function (char-from-name)

[Robert Pluim]

>>>>> On Mon, 13 Feb 2023 10:23:49 -0500, Jacob Faibussowitsch 
>>>>> <jacob.fai@gmail.com> said:

    Jacob> Hello,
    Jacob> Trying to build latest trunk (commit 
a3edacd3f547195740304139cb68aaa94d7b18ee) has failed this morning with:

    Jacob> Loading international/mule-conf (source)...
    Jacob> Symbol's function definition is void: char-from-name

    Jacob> Error: void-function (char-from-name)
    Jacob>   mapbacktrace((closure ((prin1 . prin1) t) (evald func args _flags) 
(let ((args args)) (if evald (progn\
    Jacob>  (princ "  ") (funcall prin1 func) (princ "(")) (progn (princ "  (") 
(setq args (cons func args)))) (if \
    Jacob> args (while (progn (funcall prin1 (car args)) (setq args (cdr 
args))) (princ " "))) (princ ")\n"))))
    Jacob>   (let ((print-escape-newlines t) (print-escape-control-characters 
t) (print-escape-nonascii t) (prin1 (\
    Jacob> if (and (fboundp 'cl-prin1) (require 'cl-print nil t)) #'cl-prin1 
#'prin1))) (mapbacktrace #'(lambda (ev\
    Jacob> ald func args _flags) (let ((args args)) (if evald (progn (princ "  
") (funcall prin1 func) (princ "("))\
    Jacob>  (progn (princ "  (") (setq args (cons func args)))) (if args (while 
(progn (funcall prin1 (car args)) (\
    Jacob> setq args (cdr args))) (princ " "))) (princ ")\n")))))
    Jacob>   debug-early-backtrace()
    Jacob>   debug-early(error (void-function char-from-name))
    Jacob>   char-from-name("COLON" t)
    Jacob>   read(get-file-char)
    Jacob>   load("international/mule-conf")
    Jacob>   load("loadup.el”)

Jacob, can you try the patch below?

Michael, this is because of a3edacd3f547195740304139cb68aaa94d7b18ee

You canʼt use ?\N{} constructs early on in the emacs build process,
unfortunately. The patch uses ?\u, but we can use either the literal
characters or ?\x if you prefer

Robert
-- 
diff --git i/lisp/international/mule-conf.el w/lisp/international/mule-conf.el
index 30376b5bc19..a83eeb08525 100644
--- i/lisp/international/mule-conf.el
+++ w/lisp/international/mule-conf.el
@@ -1737,11 +1737,12 @@ password-word-equivalents
 ;; (describe-char-fold-equivalences ?:)
 ;; The last entry is taken from history.
 (defcustom password-colon-equivalents
-  '(?\N{COLON}
-    ?\N{FULLWIDTH COLON}
-    ?\N{SMALL COLON}
-    ?\N{PRESENTATION FORM FOR VERTICAL COLON}
-    ?\N{KHMER SIGN CAMNUC PII KUUH})
+  '(?\u003a ; ?\N{COLON}
+    ?\uff1a ; ?\N{FULLWIDTH COLON}
+    ?\ufe55 ; ?\N{SMALL COLON}
+    ?\ufe13 ; ?\N{PRESENTATION FORM FOR VERTICAL COLON}
+    ?\u17d6 ; ?\N{KHMER SIGN CAMNUC PII KUUH})
+    )
   "List of characters equivalent to trailing colon in \"password\" prompts."
   :type '(repeat character)
   :version "30.1"