Mercurial > emacs

comparison lisp/textmodes/reftex.el @ 50980:96a99720aa8b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(reftex-select-with-char): Don't assume that point-min == 1.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 13 May 2003 20:42:19 +0000
parents 6a9667d1f28a
children 7f4d56964e57
comparison
equal deleted inserted replaced
50979:85e525daebfc 50980:96a99720aa8b
1 ;;; reftex.el --- minor mode for doing \label, \ref, \cite, \index in LaTeX 1 ;;; reftex.el --- minor mode for doing \label, \ref, \cite, \index in LaTeX
2 ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc. 2 ;; Copyright (c) 1997, 1998, 1999, 2000, 2003 Free Software Foundation, Inc.
3 3
4 ;; Author: Carsten Dominik <dominik@science.uva.nl> 4 ;; Author: Carsten Dominik <dominik@science.uva.nl>
5 ;; Version: 4.18 5 ;; Version: 4.18
6 ;; Keywords: tex 6 ;; Keywords: tex
7 7
1963 (= ?\? (setq char (read-char-exclusive)))) 1963 (= ?\? (setq char (read-char-exclusive))))
1964 (reftex-kill-buffer "*RefTeX Select*") 1964 (reftex-kill-buffer "*RefTeX Select*")
1965 (switch-to-buffer-other-window "*RefTeX Select*") 1965 (switch-to-buffer-other-window "*RefTeX Select*")
1966 (insert help-string) 1966 (insert help-string)
1967 (goto-char 1) 1967 (goto-char 1)
1968 (unless (and (pos-visible-in-window-p 1) 1968 (unless (and (pos-visible-in-window-p (point-min))
1969 (pos-visible-in-window-p (point-max))) 1969 (pos-visible-in-window-p (point-max)))
1970 (enlarge-window (1+ (- (count-lines 1 (point-max)) 1970 (enlarge-window (1+ (- (count-lines (point-min) (point-max))
1971 (reftex-window-height))))) 1971 (reftex-window-height)))))
1972 (setq truncate-lines t)) 1972 (setq truncate-lines t))
1973 (if (and (pos-visible-in-window-p 1) 1973 (if (and (pos-visible-in-window-p (point-min))
1974 (pos-visible-in-window-p (point-max))) 1974 (pos-visible-in-window-p (point-max)))
1975 nil 1975 nil
1976 (setq prompt (concat prompt (if scroll " (SPC/DEL=Scroll)" "")))) 1976 (setq prompt (concat prompt (if scroll " (SPC/DEL=Scroll)" ""))))
1977 (message prompt) 1977 (message prompt)
1978 (and (equal char ?\?) (setq char (read-char-exclusive))) 1978 (and (equal char ?\?) (setq char (read-char-exclusive)))