[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-xemacs-compat.el

[Bill Wohler]

Index: emacs/lisp/mh-e/mh-xemacs-compat.el
diff -c emacs/lisp/mh-e/mh-xemacs-compat.el:1.2 
emacs/lisp/mh-e/mh-xemacs-compat.el:1.3
*** emacs/lisp/mh-e/mh-xemacs-compat.el:1.2     Mon Feb  3 15:55:30 2003
--- emacs/lisp/mh-e/mh-xemacs-compat.el Fri Apr 25 01:52:00 2003
***************
*** 1,6 ****
  ;;; mh-xemacs-compat.el --- GNU Emacs Functions needed by XEmacs
  
! ;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
  
  ;; Author: FSF
  ;; Maintainer: Bill Wohler <address@hidden>
--- 1,6 ----
  ;;; mh-xemacs-compat.el --- GNU Emacs Functions needed by XEmacs
  
! ;; Copyright (C) 2001, 02, 2003 Free Software Foundation, Inc.
  
  ;; Author: FSF
  ;; Maintainer: Bill Wohler <address@hidden>
***************
*** 28,40 ****
  
  ;;; Change Log:
  
- ;; $Id: mh-xemacs-compat.el,v 1.2 2003/02/03 20:55:30 wohler Exp $
- 
  ;;; Code:
  
  ;;; Some requires:
  (require 'rfc822)
  
  ;;; Simple compatibility:
  
  (unless (fboundp 'match-string-no-properties)
--- 28,40 ----
  
  ;;; Change Log:
  
  ;;; Code:
  
  ;;; Some requires:
  (require 'rfc822)
  
+ (eval-when-compile (require 'mh-utils))
+ 
  ;;; Simple compatibility:
  
  (unless (fboundp 'match-string-no-properties)
***************
*** 51,56 ****
--- 51,92 ----
    (defalias 'timerp 'itimerp))
  (unless (fboundp 'cancel-timer)
    (defalias 'cancel-timer 'delete-itimer))
+ 
+ ;; Set up the modeline glyph
+ (defconst mh-modeline-logo
+   "/* XPM */
+ static char * file[] = {
+ \"18 13 2 1\",
+ \"# c #666699\",
+ \". c None s None\",
+ \"........##........\",
+ \".......####.......\",
+ \"......######......\",
+ \"......######......\",
+ \"....#########.....\",
+ \"..##############..\",
+ \".##...######....#.\",
+ \"##...#.#.####...#.\",
+ \"....#..#.##.#...#.\",
+ \"...#..##.#.#.#....\",
+ \"...#..#..#..#.#...\",
+ \"...#..#.##..#.##..\",
+ \"...#..#.#..#....#.\"};"
+   "The image for the modeline logo.")
+ 
+ (mh-do-in-xemacs
+   (defvar mh-modeline-glyph
+     (progn
+       (let* ((data mh-modeline-logo)
+              (glyph (make-glyph
+                      (cond ((and (featurep 'xpm)
+                                  (device-on-window-system-p)
+                                  has-modeline-p)
+                             `[xpm :data ,data])
+                            (t [string :data "MH-E"])))))
+         (set-glyph-face glyph 'modeline-buffer-id)
+         glyph))
+     "Cute little logo to put in the modeline of MH-E buffers."))
  
  (provide 'mh-xemacs-compat)