Mercurial > hg > xemacs-beta
diff lisp/ilisp/ilisp-out.el @ 70:131b0175ea99 r20-0b30
Import from CVS: tag r20-0b30
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:02:59 +0200 |
parents | 27bc7f280385 |
children | 54cc21c15cbb |
line wrap: on
line diff
--- a/lisp/ilisp/ilisp-out.el Mon Aug 13 09:00:04 2007 +0200 +++ b/lisp/ilisp/ilisp-out.el Mon Aug 13 09:02:59 2007 +0200 @@ -262,8 +262,7 @@ "Find the window directly below us, if any. This is probably the window from which enlarge-window would steal lines." (if (or (not (string-match "XEmacs" emacs-version)) - (and (= emacs-major-version 19) - (< emacs-minor-version 12))) + (< emacs-minor-version 12)) (let* ((bottom (nth 3 (window-edges window))) (window* nil) (win window)) @@ -280,8 +279,7 @@ (defun ilisp-find-top-left-most-window () "Return the leftmost topmost window on the current screen." (if (or (not (string-match "XEmacs" emacs-version)) - (and (= emacs-major-version 19) - (< emacs-minor-version 12))) + (< emacs-minor-version 12)) (let* ((window* (selected-window)) (edges* (window-edges window*)) (win nil)