Mercurial > hg > xemacs-beta

comparison lisp/apel/emu.el @ 167:85ec50267440 r20-3b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b10
author cvs
date Mon, 13 Aug 2007 09:45:46 +0200
parents 43dd3413c7c7
children
comparison
equal deleted inserted replaced
166:7a77eb660975 167:85ec50267440
1 ;;; emu.el --- Emulation module for each Emacs variants 1 ;;; emu.el --- Emulation module for each Emacs variants
2 2
3 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Version: $Id: emu.el,v 1.1 1997/06/03 04:18:35 steve Exp $ 6 ;; Version: $Id: emu.el,v 1.2 1997/06/29 23:12:06 steve Exp $
7 ;; Keywords: emulation, compatibility, NEmacs, MULE, Emacs/mule, XEmacs 7 ;; Keywords: emulation, compatibility, NEmacs, MULE, Emacs/mule, XEmacs
8 8
9 ;; This file is part of emu. 9 ;; This file is part of emu.
10 10
11 ;; This program is free software; you can redistribute it and/or 11 ;; This program is free software; you can redistribute it and/or
289 289
290 290
291 ;;; @ for text/richtext and text/enriched 291 ;;; @ for text/richtext and text/enriched
292 ;;; 292 ;;;
293 293
294 (cond ((or running-emacs-19_29-or-later running-xemacs-19_14-or-later) 294 (cond ((fboundp 'richtext-decode)
295 ;; have richtext.el
296 )
297 ((or running-emacs-19_29-or-later running-xemacs-19_14-or-later)
295 ;; have enriched.el 298 ;; have enriched.el
296 (autoload 'richtext-decode "richtext") 299 (autoload 'richtext-decode "richtext")
297 (or (assq 'text/richtext format-alist) 300 (or (assq 'text/richtext format-alist)
298 (setq format-alist 301 (setq format-alist
299 (cons 302 (cons