;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Version:
-;; $Id: emu-xemacs.el,v 7.17 1997/03/06 17:46:39 morioka Exp $
+;; $Id: emu-xemacs.el,v 7.19 1997/04/05 06:50:48 morioka Exp $
;; Keywords: emulation, compatibility, XEmacs
;; This file is part of XEmacs.
;;; @ overlay
;;;
-(defalias 'tl:make-overlay 'make-extent)
-(defalias 'tl:overlay-put 'set-extent-property)
-(defalias 'tl:overlay-buffer 'extent-buffer)
-
-(defun tl:move-overlay (extent start end &optional buffer)
- (set-extent-endpoints extent start end)
- )
+(condition-case nil
+ (require 'overlay)
+ (error (defalias 'make-overlay 'make-extent)
+ (defalias 'overlay-put 'set-extent-property)
+ (defalias 'overlay-buffer 'extent-buffer)
+ (defun move-overlay (extent start end &optional buffer)
+ (set-extent-endpoints extent start end)
+ )
+ ))
-;;; @@ visible/invisible
+;;; @ visible/invisible
;;;
(defmacro enable-invisible ())
(defun invisible-region (start end)
(if (save-excursion
(goto-char start)
- (eq (following-char) ?\n)
- )
+ (eq (following-char) ?\n))
(setq start (1+ start))
)
(put-text-property start end 'invisible t)
(defun invisible-p (pos)
(if (save-excursion
(goto-char pos)
- (eq (following-char) ?\n)
- )
+ (eq (following-char) ?\n))
(setq pos (1+ pos))
)
(get-text-property pos 'invisible)
(save-excursion
(if (save-excursion
(goto-char pos)
- (eq (following-char) ?\n)
- )
+ (eq (following-char) ?\n))
(setq pos (1+ pos))
)
(or (next-single-property-change pos 'invisible)
- (point-max))
- ))
+ (point-max))))
;;; @ mouse
(defun dired-other-frame (dirname &optional switches)
"\"Edit\" directory DIRNAME. Like `dired' but makes a new frame."
(interactive (dired-read-dir-and-switches "in other frame "))
- (switch-to-buffer-other-frame (dired-noselect dirname switches))
- )
+ (switch-to-buffer-other-frame (dired-noselect dirname switches)))
)
filename))
(setq directory (file-name-directory (substring directory 0 -1))
ancestor (concat "../" ancestor)))
- (concat ancestor (substring filename (match-end 0)))
- ))
+ (concat ancestor (substring filename (match-end 0)))))
)