Mercurial > emacs

comparison lisp/mh-e/mh-xemacs-compat.el @ 50702:7dd3d5eae9c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Upgraded to MH-E version 7.3. See etc/MH-E-NEWS and lisp/mh-e/ChangeLog for details.
author Bill Wohler <wohler@newt.com>
date Fri, 25 Apr 2003 05:52:00 +0000
parents b35587af8747
children 695cf19ef79e
comparison
equal deleted inserted replaced
50701:cb5f0a5d5b36 50702:7dd3d5eae9c7
1 ;;; mh-xemacs-compat.el --- GNU Emacs Functions needed by XEmacs 1 ;;; mh-xemacs-compat.el --- GNU Emacs Functions needed by XEmacs
2 2
3 ;; Copyright (C) 2001, 2002 Free Software Foundation, Inc. 3 ;; Copyright (C) 2001, 02, 2003 Free Software Foundation, Inc.
4 4
5 ;; Author: FSF 5 ;; Author: FSF
6 ;; Maintainer: Bill Wohler <wohler@newt.com> 6 ;; Maintainer: Bill Wohler <wohler@newt.com>
7 ;; Keywords: mail 7 ;; Keywords: mail
8 ;; See: mh-e.el 8 ;; See: mh-e.el
26 26
27 ;;; Commentary: 27 ;;; Commentary:
28 28
29 ;;; Change Log: 29 ;;; Change Log:
30 30
31 ;; $Id: mh-xemacs-compat.el,v 1.13 2002/11/30 01:21:42 wohler Exp $
32
33 ;;; Code: 31 ;;; Code:
34 32
35 ;;; Some requires: 33 ;;; Some requires:
36 (require 'rfc822) 34 (require 'rfc822)
35
36 (eval-when-compile (require 'mh-utils))
37 37
38 ;;; Simple compatibility: 38 ;;; Simple compatibility:
39 39
40 (unless (fboundp 'match-string-no-properties) 40 (unless (fboundp 'match-string-no-properties)
41 (defsubst match-string-no-properties (match) 41 (defsubst match-string-no-properties (match)
50 (unless (fboundp 'timerp) 50 (unless (fboundp 'timerp)
51 (defalias 'timerp 'itimerp)) 51 (defalias 'timerp 'itimerp))
52 (unless (fboundp 'cancel-timer) 52 (unless (fboundp 'cancel-timer)
53 (defalias 'cancel-timer 'delete-itimer)) 53 (defalias 'cancel-timer 'delete-itimer))
54 54
55 ;; Set up the modeline glyph
56 (defconst mh-modeline-logo
57 "/* XPM */
58 static char * file[] = {
59 \"18 13 2 1\",
60 \"# c #666699\",
61 \". c None s None\",
62 \"........##........\",
63 \".......####.......\",
64 \"......######......\",
65 \"......######......\",
66 \"....#########.....\",
67 \"..##############..\",
68 \".##...######....#.\",
69 \"##...#.#.####...#.\",
70 \"....#..#.##.#...#.\",
71 \"...#..##.#.#.#....\",
72 \"...#..#..#..#.#...\",
73 \"...#..#.##..#.##..\",
74 \"...#..#.#..#....#.\"};"
75 "The image for the modeline logo.")
76
77 (mh-do-in-xemacs
78 (defvar mh-modeline-glyph
79 (progn
80 (let* ((data mh-modeline-logo)
81 (glyph (make-glyph
82 (cond ((and (featurep 'xpm)
83 (device-on-window-system-p)
84 has-modeline-p)
85 `[xpm :data ,data])
86 (t [string :data "MH-E"])))))
87 (set-glyph-face glyph 'modeline-buffer-id)
88 glyph))
89 "Cute little logo to put in the modeline of MH-E buffers."))
90
55 (provide 'mh-xemacs-compat) 91 (provide 'mh-xemacs-compat)
56 92
57 ;;; Local Variables: 93 ;;; Local Variables:
58 ;;; indent-tabs-mode: nil 94 ;;; indent-tabs-mode: nil
59 ;;; sentence-end-double-space: nil 95 ;;; sentence-end-double-space: nil