diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2022-03-18 13:54:46 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2022-03-18 13:54:46 +0200 |
| commit | c4596c8522e221ecff847a4d997c133436b07e1a (patch) | |
| tree | d81a655f09176a654a7faac2a27f525e4b08ed9b /lisp/play | |
| parent | 530c3491e89bd316e628f67d5cebb7db6e7d470a (diff) | |
| download | emacs-c4596c8522e221ecff847a4d997c133436b07e1a.tar.gz emacs-c4596c8522e221ecff847a4d997c133436b07e1a.tar.bz2 emacs-c4596c8522e221ecff847a4d997c133436b07e1a.zip | |
Fix a regression in 'decipher-digram-list'
* lisp/play/decipher.el (decipher-stats-buffer): Don't assume the
statistics buffer always exists. (Bug#54443)
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/decipher.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/play/decipher.el b/lisp/play/decipher.el index ae44ecd6817..aeb4726bb9b 100644 --- a/lisp/play/decipher.el +++ b/lisp/play/decipher.el @@ -983,13 +983,14 @@ if it can't, it signals an error." decipher-stats-buffer) ;; Create a new buffer if requested: (create - (let ((stats-name (concat "*" (buffer-name) "*"))) + (let* ((stats-name (concat "*" (buffer-name) "*")) + (buf (get-buffer stats-name))) (setq decipher-stats-buffer - (if (eq 'decipher-stats-mode - (buffer-local-value 'major-mode - (get-buffer stats-name))) - ;; We just lost track of the statistics buffer: - (get-buffer stats-name) + (if (and (bufferp buf) + (eq 'decipher-stats-mode + (buffer-local-value 'major-mode buf))) + buf + ;; We just lost track of the statistics buffer: (generate-new-buffer stats-name)))) (with-current-buffer decipher-stats-buffer (decipher-stats-mode)) |