diff options
| author | Alan Mackenzie | 2024-01-11 17:54:47 +0000 |
|---|---|---|
| committer | Alan Mackenzie | 2024-01-11 17:54:47 +0000 |
| commit | 07bb8dc0afaef5ec7a7e194df42cc019ce8604d4 (patch) | |
| tree | 6daa0e250330f01dd4208ab504f5a0b555b172af | |
| parent | fbc4a3c7de60d766c4b7c639985fecddc4f60604 (diff) | |
| download | emacs-07bb8dc0afaef5ec7a7e194df42cc019ce8604d4.tar.gz emacs-07bb8dc0afaef5ec7a7e194df42cc019ce8604d4.zip | |
Bind cross-buffer buffer-local variable correctly.
This fixes bug#68200.
* lisp/emacs-lisp/bytecomp.el (byte-compile-output-docform):
Note that let-binding a buffer local variable leaves it buffer
local, hence to transfer the binding of
byte-compile-dynamic-docstrings to the output buffer, an
intermediate variable is needed. Implement this.
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 2bc8d54ba77..ea9298c6646 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el | |||
| @@ -2605,9 +2605,10 @@ list that represents a doc string reference. | |||
| 2605 | `defvaralias', `autoload' and `custom-declare-variable' need that." | 2605 | `defvaralias', `autoload' and `custom-declare-variable' need that." |
| 2606 | ;; We need to examine byte-compile-dynamic-docstrings | 2606 | ;; We need to examine byte-compile-dynamic-docstrings |
| 2607 | ;; in the input buffer (now current), not in the output buffer. | 2607 | ;; in the input buffer (now current), not in the output buffer. |
| 2608 | (let ((byte-compile-dynamic-docstrings byte-compile-dynamic-docstrings)) | 2608 | (let ((dynamic-docstrings byte-compile-dynamic-docstrings)) |
| 2609 | (with-current-buffer byte-compile--outbuffer | 2609 | (with-current-buffer byte-compile--outbuffer |
| 2610 | (let ((position (point)) | 2610 | (let ((byte-compile-dynamic-docstrings dynamic-docstrings) |
| 2611 | (position (point)) | ||
| 2611 | (print-continuous-numbering t) | 2612 | (print-continuous-numbering t) |
| 2612 | print-number-table | 2613 | print-number-table |
| 2613 | ;; FIXME: The bindings below are only needed for when we're | 2614 | ;; FIXME: The bindings below are only needed for when we're |