Mercurial > hg > xemacs-beta

comparison lisp/tl/emu.el @ 86:364816949b59 r20-0b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b93
author cvs
date Mon, 13 Aug 2007 09:09:02 +0200
parents c7528f8e288d
children 0d2f883870bc
comparison
equal deleted inserted replaced
85:c661705957e0 86:364816949b59
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.2 1997/01/03 03:10:29 steve Exp $ 6 ;; Version: $Id: emu.el,v 1.3 1997/01/30 02:22:46 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 ; XEmacs: this causes a strange message at DOC file generation time. 144 (defvar path-separator ":"
145 ;(defvar path-separator ":" 145 "Character used to separate concatenated paths.")
146 ; "Character used to separate concatenated paths.")
147 146
148 (defun-maybe buffer-substring-no-properties (beg end) 147 (defun-maybe buffer-substring-no-properties (beg end)
149 "Return the text from BEG to END, without text properties, as a string. 148 "Return the text from BEG to END, without text properties, as a string.
150 \[emu.el; EMACS 19.29 emulating function]" 149 \[emu.el; EMACS 19.29 emulating function]"
151 (let ((string (buffer-substring beg end))) 150 (let ((string (buffer-substring beg end)))