[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-xemacs-compat.el
From: |
Bill Wohler |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-xemacs-compat.el |
Date: |
Fri, 25 Apr 2003 01:52:12 -0400 |
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)