Mercurial > hg > xemacs-beta

comparison lisp/tl/emu.el @ 78:c7528f8e288d r20-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b34
author cvs
date Mon, 13 Aug 2007 09:05:42 +0200
parents 54cc21c15cbb
children 364816949b59
comparison
equal deleted inserted replaced
77:6cb4f478e7bc 78:c7528f8e288d
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 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,1996 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.1.2 1996/12/21 20:50:49 steve Exp $ 6 ;; Version: $Id: emu.el,v 1.2 1997/01/03 03:10:29 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
139 139
140 140
141 ;;; @ EMACS 19.29 emulation 141 ;;; @ EMACS 19.29 emulation
142 ;;; 142 ;;;
143 143
144 (defvar path-separator ":" 144 ; XEmacs: this causes a strange message at DOC file generation time.
145 "Character used to separate concatenated paths.") 145 ;(defvar path-separator ":"
146 ; "Character used to separate concatenated paths.")
146 147
147 (defun-maybe buffer-substring-no-properties (beg end) 148 (defun-maybe buffer-substring-no-properties (beg end)
148 "Return the text from BEG to END, without text properties, as a string. 149 "Return the text from BEG to END, without text properties, as a string.
149 \[emu.el; EMACS 19.29 emulating function]" 150 \[emu.el; EMACS 19.29 emulating function]"
150 (let ((string (buffer-substring beg end))) 151 (let ((string (buffer-substring beg end)))