commit/XEmacs: kehoea: Handle non-numeric STATUS more gracefully, make-docfile.el

1 new commit in XEmacs: https://bitbucket.org/xemacs/xemacs/commits/262dc5a418f5/ Changeset: 262dc5a418f5 User: kehoea Date: 2018-04-25 07:14:02+00:00 Summary: Handle non-numeric STATUS more gracefully, make-docfile.el lisp/ChangeLog addition: 2018-04-25 Aidan Kehoe <kehoea(a)parhasard.net&gt; * make-docfile.el (docfile-out-of-date): #'call-process can return a non-integer if the underlying process signaled, and exited for that reason. Handle this more gracefully. Affected #: 2 files diff -r c5889f9bb7f4 -r 262dc5a418f5 lisp/ChangeLog --- a/lisp/ChangeLog +++ b/lisp/ChangeLog ＠＠ -1,3 +1,9 ＠＠ +2018-04-25 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * make-docfile.el (docfile-out-of-date): + #'call-process can return a non-integer if the underlying process + signaled, and exited for that reason. Handle this more gracefully. + 2018-04-10 Aidan Kehoe <kehoea(a)parhasard.net&gt; * code-files.el (write-region): diff -r c5889f9bb7f4 -r 262dc5a418f5 lisp/make-docfile.el --- a/lisp/make-docfile.el +++ b/lisp/make-docfile.el ＠＠ -245,16 +245,17 ＠＠ ;; (expand-file-name "make-docfile" build-lib-src) "make-docfile" nil + ;; Wouldn't it be nice to have streams as process input and + ;; output. (list t standard-error) nil - (append options processed)))) - (if (equal status 0) - (message "%sSpawning make-docfile ...done" - (buffer-substring nil nil standard-error)) - (message "%sSpawning make-docfile ... error, failed with status %d." - (buffer-substring nil nil standard-error) - status)) - (kill-emacs status))) + (append options processed))) + (numeric-status (if (integerp status) status 1))) + (write-sequence (buffer-substring nil nil standard-error) + 'external-debugging-output) + (message "Spawning make-docfile ... %s" + (if (zerop numeric-status) "done" status)) + (kill-emacs numeric-status))) (kill-emacs) Repository URL: https://bitbucket.org/xemacs/xemacs/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email.