Mercurial > hg > xemacs-beta

comparison lisp/simple.el @ 288:e11d67e05968 r21-0b42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b42
author cvs
date Mon, 13 Aug 2007 10:35:54 +0200
parents 57709be46d1b
children 4b85ae5eabfb
comparison
equal deleted inserted replaced
287:13a0bd77a29d 288:e11d67e05968
3935 (while before-init-deferred-warnings 3935 (while before-init-deferred-warnings
3936 (apply 'display-warning (car before-init-deferred-warnings)) 3936 (apply 'display-warning (car before-init-deferred-warnings))
3937 (setq before-init-deferred-warnings 3937 (setq before-init-deferred-warnings
3938 (cdr before-init-deferred-warnings)))) 3938 (cdr before-init-deferred-warnings))))
3939 3939
3940 #-infodock (add-hook 'after-init-hook 'after-init-display-warnings) 3940 (add-hook 'after-init-hook 'after-init-display-warnings)
3941 3941
3942 (defun display-warning (class message &optional level) 3942 (defun display-warning (class message &optional level)
3943 "Display a warning message. 3943 "Display a warning message.
3944 CLASS should be a symbol describing what sort of warning this is, such 3944 CLASS should be a symbol describing what sort of warning this is, such
3945 as `resource' or `key-mapping'. A list of such symbols is also 3945 as `resource' or `key-mapping'. A list of such symbols is also