mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(reftex-select-with-char): Don't assume that point-min == 1.

Browse Source
This commit is contained in:
Stefan Monnier 2003-05-13 20:42:19 +00:00
parent 4a9699d8c8
commit ea6a015d2e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/textmodes/reftex.el
View File

@ -1,5 +1,5 @@
;;; reftex.el --- minor mode for doing \label, \ref, \cite, \index in LaTeX
;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
;; Copyright (c) 1997, 1998, 1999, 2000, 2003 Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@science.uva.nl>
;; Version: 4.18
@ -1965,12 +1965,12 @@ When DIE is non-nil, throw an error if file not found."
(switch-to-buffer-other-window "*RefTeX Select*")
(insert help-string)
(goto-char 1)
(unless (and (pos-visible-in-window-p 1)
(unless (and (pos-visible-in-window-p (point-min))
(pos-visible-in-window-p (point-max)))
(enlarge-window (1+ (- (count-lines 1 (point-max))
(enlarge-window (1+ (- (count-lines (point-min) (point-max))
(reftex-window-height)))))
(setq truncate-lines t))
(if (and (pos-visible-in-window-p 1)
(if (and (pos-visible-in-window-p (point-min))
(pos-visible-in-window-p (point-max)))
nil
(setq prompt (concat prompt (if scroll " (SPC/DEL=Scroll)" ""))))