[PATCH][AC] Bind an uninterned #:buffer, rather than #:ntl-buffer, #'normal-top-level

APPROVE COMMIT NOTE: This patch has been committed. # HG changeset patch # User Aidan Kehoe <kehoea(a)parhasard.net&gt; # Date 1488586052 0 # Sat Mar 04 00:07:32 2017 +0000 # Node ID 46c42be3543e897e4a9cf66084dbd732f16052a1 # Parent 0058a7e5c57777d2182ae59044d1e736e714d3f2 Bind an uninterned #:buffer, rather than #:ntl-buffer, #'normal-top-level 2017-03-04 Aidan Kehoe <kehoea(a)parhasard.net&gt; * startup.el (normal-top-level): Bind an uninterned #:buffer, rather than #:ntl-buffer, which is less distracting in backtraces. (Commit chiefly done to help get the xemacs-commit hook posting again.) diff -r 0058a7e5c577 -r 46c42be3543e lisp/ChangeLog --- a/lisp/ChangeLog Fri Mar 03 23:22:25 2017 +0000 +++ b/lisp/ChangeLog Sat Mar 04 00:07:32 2017 +0000 ＠＠ -1,3 +1,11 ＠＠ +2017-03-04 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * startup.el (normal-top-level): + Bind an uninterned #:buffer, rather than #:ntl-buffer, which is + less distracting in backtraces. + (Commit chiefly done to help get the xemacs-commit hook posting + again.) + 2017-02-20 Aidan Kehoe <kehoea(a)parhasard.net&gt; * cl-macs.el: diff -r 0058a7e5c577 -r 46c42be3543e lisp/startup.el --- a/lisp/startup.el Fri Mar 03 23:22:25 2017 +0000 +++ b/lisp/startup.el Sat Mar 04 00:07:32 2017 +0000 ＠＠ -550,7 +550,7 ＠＠ ;; function (which will not be called recursively, and so won't ;; shadow itself) and doesn't require consing a closure at ;; runtime: - (cons 'progn (subst '#:ntl-buffer 'ntl-buffer body :test #'eq)))) + (cons 'progn (subst '#:buffer 'ntl-buffer body :test #'eq)))) (replace-ntl-buffer (let ((ntl-buffer (current-buffer))) (labels ((after-command-line (&optional error-data) -- ‘As I sat looking up at the Guinness ad, I could never figure out / How your man stayed up on the surfboard after forty pints of stout’ (C. Moore)