-;;; emu-18.el --- EMACS 19.* emulation module for EMACS 18.*
+;;; 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.26 1996/09/21 16:29:25 morioka Exp $
+;; Version: $Id: emu-18.el,v 7.33 1997/04/05 06:44:01 morioka Exp $
;; Keywords: emulation, compatibility
-;; This file is part of tl (Tiny Library).
+;; This file is part of emu.
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
This function works by modifying `process-environment'."
t)
+(defvar data-directory exec-directory)
+
;;; @ for EMACS 18.55
;;;
))
)))
+(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 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
)
+;;; @ buffer
+;;;
+
+(defun-maybe generate-new-buffer-name (name &optional ignore)
+ "Return a string that is the name of no existing buffer based on NAME.
+If there is no live buffer named NAME, then return NAME.
+Otherwise modify name by appending `<NUMBER>', incrementing NUMBER
+until an unused name is found, and then return that name.
+Optional second argument IGNORE specifies a name that is okay to use
+\(if it is in the sequence to be tried)
+even if a buffer with that name exists."
+ (if (get-buffer name)
+ (let ((n 2) new)
+ (while (get-buffer (setq new (format "%s<%d>" name n)))
+ (setq n (1+ n)))
+ new)
+ name))
+
+
;;; @ end
;;;