* emoney.el (emoney-setup-accounts-buffer): Leave the buffer with
point at the top of the list of accounts.
(emoney-setup-header-buffer): Center and upcase the account name.
Signed-off-by: Steve Youngs <steve@sxemacs.org>
(setq accounts (cdr accounts)))
(set-specifier horizontal-scrollbar-visible-p nil (current-buffer))
(set-specifier has-modeline-p nil (current-buffer))
+ (goto-char (point-min))
(run-hooks 'emoney-setup-accounts-buffer-hook))))
(defconst emoney-header
(when (buffer-live-p (get-buffer-create buf))
(kill-buffer buf))
(set-buffer (get-buffer-create buf))
- (insert-face emoney-current-account-name 'emoney-account-name-face)
+ (center-line
+ (insert-face (upcase emoney-current-account-name)
+ 'emoney-header-face))
(insert "\n\n")
(insert-face emoney-header 'emoney-header-face)
(set-specifier horizontal-scrollbar-visible-p nil (current-buffer))