diff options
| author | Martin Rudalics | 2007-11-10 09:57:52 +0000 |
|---|---|---|
| committer | Martin Rudalics | 2007-11-10 09:57:52 +0000 |
| commit | 4644fd351f17f8d36eee397b417f41cd5fd3066c (patch) | |
| tree | 87fb7dff45037dc2a419a2c72f96fe39ca542458 | |
| parent | b766be6a9b66f23f096d4149f43baeb231195545 (diff) | |
| download | emacs-4644fd351f17f8d36eee397b417f41cd5fd3066c.tar.gz emacs-4644fd351f17f8d36eee397b417f41cd5fd3066c.zip | |
(list-colors-display): Use with-help-window instead of with-output-to-temp-buffer.
| -rw-r--r-- | lisp/facemenu.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/facemenu.el b/lisp/facemenu.el index 26a0231bf1a..968a115c5d1 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el | |||
| @@ -516,7 +516,7 @@ argument BUFFER-NAME is nil, it defaults to *Colors*." | |||
| 516 | (let ((lc (nthcdr (1- (display-color-cells)) list))) | 516 | (let ((lc (nthcdr (1- (display-color-cells)) list))) |
| 517 | (if lc | 517 | (if lc |
| 518 | (setcdr lc nil))))) | 518 | (setcdr lc nil))))) |
| 519 | (with-output-to-temp-buffer (or buffer-name "*Colors*") | 519 | (with-help-window (or buffer-name "*Colors*") |
| 520 | (save-excursion | 520 | (save-excursion |
| 521 | (set-buffer standard-output) | 521 | (set-buffer standard-output) |
| 522 | (setq truncate-lines t) | 522 | (setq truncate-lines t) |