>>>> "dv" == Didier Verna
<verna(a)inf.enst.fr> writes:
dv> Kyle Jones <kyle_jones(a)wonderworks.com> wrote:
> I think the XEmacs in the mode line is useful for burning the
> name of the product into the minds of the users.
dv> Maybe under tty's, but not under a window system. In that
dv> case, we should rather fix the frame title which currently
dv> says "emacs:...".
I agree, Didier. FWIW, here is the result of my severe fiddling with
modeline-format and frame-title-format which, believe it or not, I
actually use since a few weeks!
Adrian
(defconst modeline-buffer-identification
(list (cons modeline-buffer-id-left-extent (purecopy "%N"))
; this used to be "XEmacs:"
(cons modeline-buffer-id-right-extent (purecopy "%17b")))
"Modeline control for identifying the buffer being displayed.
Its default value is \"XEmacs: %17b\" (NOT!). Major modes that edit things
other than ordinary files may change this (e.g. Info, Dired,...)")
;;; (defconst modeline-buffer-identification "")
(setq-default
modeline-format
(list
(purecopy "")
;;; 'modeline-multibyte-status
;;; (purecopy '(line-number-mode "-L%l-"))
;;; (purecopy '(column-number-mode "C%c"))
;;; (cons modeline-modified-extent 'modeline-modified)
(cons modeline-modified-extent "-%1*%1+-")
(cons modeline-buffer-id-extent 'modeline-buffer-identification)
(purecopy " ")
'global-mode-string
(purecopy " %[(")
(cons modeline-minor-mode-extent (list "" 'mode-name
'minor-mode-alist))
(cons modeline-narrowed-extent "%n")
'modeline-process
(purecopy ")%]----")
(purecopy '(-3 . "%p"))
(purecopy "-%-")))
;;; ;; override the default value defined in loaddefs.el.
;;; (setq-default modeline-format
;;; (cons (purecopy "")
;;; (cons 'modeline-multibyte-status
;;; (cdr modeline-format))))
(setq frame-title-format
(format
"XEmacs%s----%%C----L%%l-C%%c----%%b----PID %d----%%s----%s"
emacs-program-version (emacs-pid) (user-login-name)))