Mercurial > hg > xemacs-beta

comparison lisp/simple.el @ 259:11cf20601dec r20-5b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b28
author cvs
date Mon, 13 Aug 2007 10:23:02 +0200
parents 157b30c96d03
children 8efd647ea9ca
comparison
equal deleted inserted replaced
258:58424f6abf56 259:11cf20601dec
3878 (let ((buffer (get-buffer-create "*Warnings*"))) 3878 (let ((buffer (get-buffer-create "*Warnings*")))
3879 (when (or (not warning-marker) 3879 (when (or (not warning-marker)
3880 (not (eq (marker-buffer warning-marker) buffer))) 3880 (not (eq (marker-buffer warning-marker) buffer)))
3881 (setq warning-marker (make-marker)) 3881 (setq warning-marker (make-marker))
3882 (set-marker warning-marker 1 buffer)) 3882 (set-marker warning-marker 1 buffer))
3883 (set-window-start (display-buffer buffer) warning-marker) 3883 (if temp-buffer-show-function
3884 (let ((show-buffer (get-buffer-create "*Warnings-Show*")))
3885 (save-excursion
3886 (set-buffer show-buffer)
3887 (setq buffer-read-only nil)
3888 (erase-buffer))
3889 (save-excursion
3890 (set-buffer buffer)
3891 (copy-to-buffer show-buffer
3892 (marker-position warning-marker)
3893 (point-max)))
3894 (funcall temp-buffer-show-function show-buffer))
3895 (set-window-start (display-buffer buffer) warning-marker))
3884 (set-marker warning-marker (point-max buffer) buffer))) 3896 (set-marker warning-marker (point-max buffer) buffer)))
3885 3897
3886 (defun emacs-name () 3898 (defun emacs-name ()
3887 "Return the printable name of this instance of Emacs." 3899 "Return the printable name of this instance of Emacs."
3888 (cond ((featurep 'infodock) "InfoDock") 3900 (cond ((featurep 'infodock) "InfoDock")