Mercurial > hg > xemacs-beta

comparison lisp/ilisp/ilisp-out.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents 376386a54a3c
children 27bc7f280385
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
1 ;;; -*- Mode: Emacs-Lisp -*- 1 ;;; -*- Mode: Emacs-Lisp -*-
2 2
3 ;;; ilisp-out.el -- 3 ;;; ilisp-out.el --
4 4
5 ;;; This file is part of ILISP. 5 ;;; This file is part of ILISP.
6 ;;; Version: 5.7 6 ;;; Version: 5.8
7 ;;; 7 ;;;
8 ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell 8 ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
9 ;;; 1993, 1994 Ivan Vasquez 9 ;;; 1993, 1994 Ivan Vasquez
10 ;;; 1994, 1995 Marco Antoniotti and Rick Busdiecker 10 ;;; 1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
11 ;;; 1996 Marco Antoniotti and Rick Campbell
11 ;;; 12 ;;;
12 ;;; Other authors' names for which this Copyright notice also holds 13 ;;; Other authors' names for which this Copyright notice also holds
13 ;;; may appear later in this file. 14 ;;; may appear later in this file.
14 ;;; 15 ;;;
15 ;;; Send mail to 'ilisp-request@lehman.com' to be included in the 16 ;;; Send mail to 'ilisp-request@naggum.no' to be included in the
16 ;;; ILISP mailing list. 'ilisp@lehman.com' is the general ILISP 17 ;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
17 ;;; mailing list were bugs and improvements are discussed. 18 ;;; mailing list were bugs and improvements are discussed.
18 ;;; 19 ;;;
19 ;;; ILISP is freely redistributable under the terms found in the file 20 ;;; ILISP is freely redistributable under the terms found in the file
20 ;;; COPYING. 21 ;;; COPYING.
21 22
258 ;; XEmacs change -- window-edges is gone in 19.12+ so use 259 ;; XEmacs change -- window-edges is gone in 19.12+ so use
259 ;; next-vertical-window instead. 260 ;; next-vertical-window instead.
260 (defun ilisp-find-lower-window (window) 261 (defun ilisp-find-lower-window (window)
261 "Find the window directly below us, if any. This is probably the 262 "Find the window directly below us, if any. This is probably the
262 window from which enlarge-window would steal lines." 263 window from which enlarge-window would steal lines."
263 (if (< emacs-minor-version 12) 264 (if (or (not (string-match "XEmacs" emacs-version))
265 (< emacs-minor-version 12))
264 (let* ((bottom (nth 3 (window-edges window))) 266 (let* ((bottom (nth 3 (window-edges window)))
265 (window* nil) 267 (window* nil)
266 (win window)) 268 (win window))
267 (while (not (eq (setq win (next-window win 'no)) 269 (while (not (eq (setq win (next-window win 'no))
268 window)) 270 window))
274 (next-vertical-window window))) 276 (next-vertical-window window)))
275 277
276 ;; XEmacs change -- There is now a primitive to do this. 278 ;; XEmacs change -- There is now a primitive to do this.
277 (defun ilisp-find-top-left-most-window () 279 (defun ilisp-find-top-left-most-window ()
278 "Return the leftmost topmost window on the current screen." 280 "Return the leftmost topmost window on the current screen."
279 (if (< emacs-minor-version 12) 281 (if (or (not (string-match "XEmacs" emacs-version))
282 (< emacs-minor-version 12))
280 (let* ((window* (selected-window)) 283 (let* ((window* (selected-window))
281 (edges* (window-edges window*)) 284 (edges* (window-edges window*))
282 (win nil) 285 (win nil)
283 (edges nil) 286 (edges nil)
284 (start-window window*)) 287 (start-window window*))
389 (defun ilisp-display-output-in-echo-area (output) 392 (defun ilisp-display-output-in-echo-area (output)
390 "Display output as a message in the echo area." 393 "Display output as a message in the echo area."
391 ;; First clear any existing typeout so as to not confuse the user. 394 ;; First clear any existing typeout so as to not confuse the user.
392 (or (eq (selected-window) (ilisp-output-window)) 395 (or (eq (selected-window) (ilisp-output-window))
393 (ilisp-bury-output)) 396 (ilisp-bury-output))
394 ;; Patch suggested by hunter@work.nlm.nih.gov (Larry Hunter) 397
398 ;; v5.7: Patch suggested by hunter@work.nlm.nih.gov (Larry Hunter)
395 ;; If output contains '%', 'message' loses. 399 ;; If output contains '%', 'message' loses.
396 ;; (message (ilisp-quote-%s output)) 400 ;; (message (ilisp-quote-%s output))
397 ;; An alternative here could be '(princ output)', as suggested by 401 ;; An alternative here could be '(princ output)', as suggested by
398 ;; Christopher Hoover <ch@lks.csi.com> 402 ;; Christopher Hoover <ch@lks.csi.com>
399 (princ output) 403 ;; (princ output)
404
405 ;; v5.7b: Patch suggested by fujieda@jaist.ac.jp (Kazuhiro Fujieda)
406 ;; Best one for FSF Emacs 19.2[89].
407 (message "%s" output)
400 ) 408 )
401 409
402 410
403 ;;; ilisp-quote-%s -- 411 ;;; ilisp-quote-%s --
404 ;;; Patch suggested by hunter@work.nlm.nih.gov (Larry Hunter) 412 ;;; Patch suggested by hunter@work.nlm.nih.gov (Larry Hunter)