diff options
Diffstat (limited to 'lisp/disp-table.el')
-rw-r--r-- | lisp/disp-table.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/disp-table.el b/lisp/disp-table.el index 91dc4a7fd3..5c1401bc60 100644 --- a/lisp/disp-table.el +++ b/lisp/disp-table.el @@ -87,8 +87,7 @@ Valid symbols are `truncation', `wrap', `escape', `control', (princ "\nVertical window border glyph: ") (prin1 (display-table-slot dt 'vertical-border)) (princ "\nCharacter display glyph sequences:\n") - (save-excursion - (set-buffer standard-output) + (with-current-buffer standard-output (let ((vector (make-vector 256 nil)) (i 0)) (while (< i 256) |