From 6d929429e10fd6b719bb253ce129edd07da126b0 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Tue, 29 Sep 2009 14:50:24 +0000 Subject: Clean up hints about buffer display --- generic/pg-user.el | 16 ++++++++-------- generic/proof-menu.el | 2 +- 2 files changed, 9 insertions(+), 9 deletions(-) diff --git a/generic/pg-user.el b/generic/pg-user.el index 802a3692..af1a53cf 100644 --- a/generic/pg-user.el +++ b/generic/pg-user.el @@ -910,15 +910,15 @@ If NUM is negative, move upwards. Return new span." ;;;###autoload (defun pg-response-buffers-hint (&optional nextbuf) - (unless (or proof-multiple-frames-enable - proof-three-window-enable - (not (buffer-live-p proof-goals-buffer))) - (pg-hint - (format - "\\[proof-prf] for goals;%s \\[proof-layout-windows] refreshes" + (unless (not (buffer-live-p proof-goals-buffer)) + (pg-hint + (format + "\\[proof-prf] for goals;%s \\[proof-layout-windows] refreshes" + (if (or proof-three-window-enable + proof-multiple-frames-enable) + "" (format " \\[proof-display-some-buffers] rotates output%s;" - (if nextbuf (concat " (next:" nextbuf ")") "")) - "")))) + (if nextbuf (concat " (next:" nextbuf ")") ""))))))) ;;;###autoload (defun pg-jump-to-end-hint () diff --git a/generic/proof-menu.el b/generic/proof-menu.el index 820e1544..9e4d5e86 100644 --- a/generic/proof-menu.el +++ b/generic/proof-menu.el @@ -81,7 +81,7 @@ without adjusting window layout." (if (eq selectedbuf proof-response-buffer) (set-window-point (get-buffer-window proof-response-buffer t) (point-max))) - (pg-hint (pg-response-buffers-hint (buffer-name nextbuf))))))) + (pg-response-buffers-hint (buffer-name nextbuf)))))) -- cgit v1.2.3