1 |
;;; reftex.el --- minor mode for doing \label, \ref, \cite, \index in LaTeX |
;;; reftex.el --- minor mode for doing \label, \ref, \cite, \index in LaTeX |
2 |
;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc. |
;; Copyright (c) 1997, 1998, 1999, 2000, 2003 Free Software Foundation, Inc. |
3 |
|
|
4 |
;; Author: Carsten Dominik <dominik@science.uva.nl> |
;; Author: Carsten Dominik <dominik@science.uva.nl> |
5 |
;; Version: 4.18 |
;; Version: 4.18 |
1965 |
(switch-to-buffer-other-window "*RefTeX Select*") |
(switch-to-buffer-other-window "*RefTeX Select*") |
1966 |
(insert help-string) |
(insert help-string) |
1967 |
(goto-char 1) |
(goto-char 1) |
1968 |
(unless (and (pos-visible-in-window-p 1) |
(unless (and (pos-visible-in-window-p (point-min)) |
1969 |
(pos-visible-in-window-p (point-max))) |
(pos-visible-in-window-p (point-max))) |
1970 |
(enlarge-window (1+ (- (count-lines 1 (point-max)) |
(enlarge-window (1+ (- (count-lines (point-min) (point-max)) |
1971 |
(reftex-window-height))))) |
(reftex-window-height))))) |
1972 |
(setq truncate-lines t)) |
(setq truncate-lines t)) |
1973 |
(if (and (pos-visible-in-window-p 1) |
(if (and (pos-visible-in-window-p (point-min)) |
1974 |
(pos-visible-in-window-p (point-max))) |
(pos-visible-in-window-p (point-max))) |
1975 |
nil |
nil |
1976 |
(setq prompt (concat prompt (if scroll " (SPC/DEL=Scroll)" "")))) |
(setq prompt (concat prompt (if scroll " (SPC/DEL=Scroll)" "")))) |