@@ -35,11 +35,12 @@ (defun apply-best-color-theme-for-frame-type (frame) (let ((prev-frame (selected-frame))) (select-frame frame) - (if window-system - (preserving-default-font-size - (funcall *window-system-color-theme*)) - (funcall *tty-color-theme*)) - (select-frame prev-frame))) + (prog1 + (if window-system + (preserving-default-font-size + (funcall *window-system-color-theme*)) + (funcall *tty-color-theme*)) + (select-frame prev-frame)))) (defun reapply-color-themes () (interactive) init-themes.el 381b86360f936c59c177f65faf494a08217c334f Steve Purcell steve@sanityinc.com http://github.com/purcell/emacs.d/commit/59a6e3af082d41f73f24933cca881c079e11fd8c 59a6e3af082d41f73f24933cca881c079e11fd8c 2009-06-24T02:04:33-07:00 2009-06-24T02:04:33-07:00 Use a prog1 in apply-best-color-theme-for-frame-type for correctness c0ead1dc0d783a0d8e1ec57bc5ac0b7c3bb0cb31 Steve Purcell steve@sanityinc.com