;;; emu-18.el --- emu API implementation for Emacs 18.*
-;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-18.el,v 7.29 1996/11/28 18:18:19 morioka Exp $
+;; Version: $Id: emu-18.el,v 7.32 1997/03/06 21:04:03 morioka Exp $
;; Keywords: emulation, compatibility
;; This file is part of emu.
))
)))
+(defmacro-maybe defsubst (name arglist &rest body)
+ "Define an inline function. The syntax is just like that of `defun'."
+ (cons 'defun (cons name (cons arglist body)))
+ )
+
;;; @ file
;;;
(set-buffer-modified-p (buffer-modified-p)))
+;;; @ overlay
+;;;
+
+(defun tl:overlay-buffer (overlay))
+
+
;;; @ text property
;;;
-(defun tl:set-text-properties (start end properties &optional object))
-(defun tl:add-text-properties (start end properties &optional object))
(defun remove-text-properties (start end properties &optional object))
-(defun tl:overlay-buffer (overlay))
;;; @@ visible/invisible
;;; emu-19.el --- emu API implementation for Emacs 19.*
-;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-19.el,v 7.10 1996/11/28 18:17:45 morioka Exp $
+;; Version: $Id: emu-19.el,v 7.14 1997/03/06 17:48:03 morioka Exp $
;; Keywords: emulation, compatibility
;; This file is part of emu.
;;; Code:
-;;; @ text property
+;;; @ face
+;;;
+
+(defun-maybe find-face (face)
+ (car (memq face (face-list)))
+ )
+
+
+;;; @ overlay
;;;
-(defalias 'tl:set-text-properties 'set-text-properties)
-(defalias 'tl:add-text-properties 'add-text-properties)
(defalias 'tl:make-overlay 'make-overlay)
(defalias 'tl:overlay-put 'overlay-put)
(defalias 'tl:overlay-buffer 'overlay-buffer)
;; Copyright (C) 1996,1997 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-e20.el,v 7.12 1997/02/13 08:18:53 morioka Exp $
+;; Version: $Id: emu-e20.el,v 7.13 1997/03/10 05:36:04 morioka Exp $
;; Keywords: emulation, compatibility, Mule
;; This file is part of emu.
'((x-ctext . ctext)
(gb2312 . cn-gb-2312)
(iso-2022-jp-2 . iso-2022-ss2-7)
- (iso-2022-int-1 . iso-2022-int)
- (shift_jis . sjis)
))
(defun mime-charset-to-coding-system (charset &optional lbt)
;; Copyright (C) 1994,1995,1996,1997 MORIOKA Tomohiko
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-x20.el,v 7.49 1997/02/13 08:20:53 morioka Exp $
+;; Version: $Id: emu-x20.el,v 7.52 1997/03/10 11:47:18 morioka Exp $
;; Keywords: emulation, compatibility, Mule, XEmacs
;; This file is part of XEmacs.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
+;; This module requires XEmacs 20.1 b6 or later with mule.
+
;;; Code:
(require 'cyrillic)
;;;
(defconst *noconv* 'no-conversion)
-(defconst *ctext* 'ctext)
-(defconst *hz* 'hz)
-(defconst *big5* 'big5)
-(defconst *euc-kr* 'euc-kr)
-(defconst *koi8* 'koi8)
(defalias 'set-buffer-file-coding-system 'set-file-coding-system)
(defmacro as-binary-process (&rest body)
`(let (selective-display ; Disable ^M to nl translation.
- (file-coding-system 'no-conversion)
+ (coding-system-for-write 'no-conversion)
process-input-coding-system
process-output-coding-system)
,@body))
(defmacro as-binary-input-file (&rest body)
- `(let ((file-coding-system-for-read 'no-conversion))
+ `(let ((coding-system-for-read 'no-conversion))
,@body))
(defmacro as-binary-output-file (&rest body)
- `(let ((file-coding-system 'no-conversion))
+ `(let ((coding-system-for-write 'no-conversion))
,@body))
to advanced Emacs features, such as file-name-handlers, format decoding,
find-file-hooks, etc.
This function ensures that none of these modifications will take place."
- (let ((file-coding-system-for-read 'no-conversion))
+ (let ((coding-system-for-read 'no-conversion))
(insert-file-contents-literally filename visit beg end replace)
))
;;; emu-xemacs.el --- emu API implementation for XEmacs
;; Copyright (C) 1995 Free Software Foundation, Inc.
-;; Copyright (C) 1995,1996 MORIOKA Tomohiko
+;; Copyright (C) 1995,1996,1997 MORIOKA Tomohiko
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Version:
-;; $Id: emu-xemacs.el,v 7.15 1997/03/03 11:35:08 morioka Exp $
+;; $Id: emu-xemacs.el,v 7.17 1997/03/06 17:46:39 morioka Exp $
;; Keywords: emulation, compatibility, XEmacs
-;; This file is part of emu.
+;; This file is part of XEmacs.
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;;; Code:
-;;; @ text property
+;;; @ face
;;;
(or (fboundp 'face-list)
(or (face-differs-from-default-p 'underline)
(set-face-underline-p 'underline t))
-(or (fboundp 'tl:set-text-properties)
- (defun tl:set-text-properties (start end props &optional buffer)
- (if (or (null buffer) (bufferp buffer))
- (if props
- (while props
- (put-text-property
- start end (car props) (nth 1 props) buffer)
- (setq props (nthcdr 2 props)))
- (remove-text-properties start end ())
- )))
- )
-(defun tl:add-text-properties (start end properties &optional object)
- (add-text-properties start end
- (append properties (list 'highlight t))
- object)
- )
+;;; @ overlay
+;;;
(defalias 'tl:make-overlay 'make-extent)
(defalias 'tl:overlay-put 'set-extent-property)
;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu.el,v 7.38 1997/02/13 08:21:59 morioka Exp $
+;; Version: $Id: emu.el,v 7.40 1997/03/06 21:35:37 morioka Exp $
;; Keywords: emulation, compatibility, NEmacs, MULE, Emacs/mule, XEmacs
;; This file is part of emu.
))
)))
+(defmacro defmacro-maybe (name &rest everything-else)
+ (or (and (fboundp name)
+ (not (get name 'defmacro-maybe))
+ )
+ (` (or (fboundp (quote (, name)))
+ (progn
+ (defmacro (, name) (,@ everything-else))
+ (put (quote (, name)) 'defmacro-maybe t)
+ ))
+ )))
+
(put 'defun-maybe 'lisp-indent-function 'defun)
+(put 'defmacro-maybe 'lisp-indent-function 'defun)
(or (boundp 'emacs-major-version)
default-mime-charset)))
-;;; @ EMACS 19.29 emulation
+;;; @ Emacs 19.29 emulation
;;;
(defvar path-separator ":"
"Character used to separate concatenated paths.")
-(defun-maybe buffer-substring-no-properties (beg end)
- "Return the text from BEG to END, without text properties, as a string.
-\[emu.el; EMACS 19.29 emulating function]"
- (let ((string (buffer-substring beg end)))
- (tl:set-text-properties 0 (length string) nil string)
+(defun-maybe buffer-substring-no-properties (start end)
+ "Return the characters of part of the buffer, without the text properties.
+The two arguments START and END are character positions;
+they can be in either order. [Emacs 19.29 emulating function]"
+ (let ((string (buffer-substring start end)))
+ (set-text-properties 0 (length string) nil string)
string))
(defun-maybe match-string (num &optional string)
Value is nil if NUMth pair didn't match, or there were less than NUM pairs.
Zero means the entire text matched by the whole regexp or whole string.
STRING should be given if the last search was by `string-match' on STRING.
-\[emu.el; EMACS 19.29 emulating function]"
+\[Emacs 19.29 emulating function]"
(if (match-beginning num)
(if string
(substring string (match-beginning num) (match-end num))
)
))
+
+;;; @ Emacs 19.30 emulation
+;;;
+
;; This function was imported Emacs 19.30.
(defun-maybe add-to-list (list-var element)
"Add to the value of LIST-VAR the element ELEMENT if it isn't there yet.
If you want to use `add-to-list' on a variable that is not defined
until a certain package is loaded, you should put the call to `add-to-list'
into a hook function that will be run only after loading the package.
-\[emu.el; EMACS 19.30 emulating function]"
+\[Emacs 19.30 emulating function]"
(or (member element (symbol-value list-var))
(set list-var (cons element (symbol-value list-var)))
))
-
-;;; @ EMACS 19.30 emulation
-;;;
-
(cond ((fboundp 'insert-file-contents-literally)
)
((boundp 'file-name-handler-alist)
to advanced Emacs features, such as file-name-handlers, format decoding,
find-file-hooks, etc.
This function ensures that none of these modifications will take place.
-\[emu.el; Emacs 19.30 emulating function]"
+\[Emacs 19.30 emulating function]"
(let (file-name-handler-alist)
(insert-file-contents filename visit beg end replace)
))
))
-;;; @ EMACS 19.31 emulation
+;;; @ Emacs 19.31 emulation
;;;
(defun-maybe buffer-live-p (object)
"Return non-nil if OBJECT is a buffer which has not been killed.
Value is nil if OBJECT is not a buffer or if it has been killed.
-\[emu.el; EMACS 19.31 emulating function]"
+\[Emacs 19.31 emulating function]"
(and object
(get-buffer object)
(buffer-name (get-buffer object))
))
-(or (fboundp 'save-selected-window)
- ;; This function was imported Emacs 19.33.
- (defmacro save-selected-window (&rest body)
- "Execute BODY, then select the window that was selected before BODY.
-\[emu.el; EMACS 19.31 emulating function]"
- (list 'let
- '((save-selected-window-window (selected-window)))
- (list 'unwind-protect
- (cons 'progn body)
- (list 'select-window 'save-selected-window-window))))
- )
+;; This macro was imported Emacs 19.33.
+(defmacro-maybe save-selected-window (&rest body)
+ "Execute BODY, then select the window that was selected before BODY.
+\[Emacs 19.31 emulating function]"
+ (list 'let
+ '((save-selected-window-window (selected-window)))
+ (list 'unwind-protect
+ (cons 'progn body)
+ (list 'select-window 'save-selected-window-window))))
;;; @ XEmacs emulation
(defun-maybe functionp (obj)
"Returns t if OBJ is a function, nil otherwise.
-\[emu.el; XEmacs emulating function]"
+\[XEmacs emulating function]"
(or (subrp obj)
(byte-code-function-p obj)
(and (symbolp obj)(fboundp obj))
projects / elisp / apel.git / commitdiff