Mercurial > emacs
comparison lisp/textmodes/reftex.el @ 91239:2fcaae6177a5
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-300
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sun, 16 Dec 2007 05:08:49 +0000 |
parents | 880960b70474 e50a2e215441 |
children | 56a72e2bd635 |
comparison
equal
deleted
inserted
replaced
91238:5cf14a2107b5 | 91239:2fcaae6177a5 |
---|---|
1976 ;; also with HELP-STRING. | 1976 ;; also with HELP-STRING. |
1977 ;; When SCROLL is non-nil, use SPC and DEL to scroll help window. | 1977 ;; When SCROLL is non-nil, use SPC and DEL to scroll help window. |
1978 (let ((char ?\?)) | 1978 (let ((char ?\?)) |
1979 (save-window-excursion | 1979 (save-window-excursion |
1980 (catch 'exit | 1980 (catch 'exit |
1981 (message (concat prompt " (?=Help)")) | 1981 (message "%s (?=Help)" prompt) |
1982 (when (or (sit-for (or delay-time 0)) | 1982 (when (or (sit-for (or delay-time 0)) |
1983 (= ?\? (setq char (read-char-exclusive)))) | 1983 (= ?\? (setq char (read-char-exclusive)))) |
1984 (reftex-kill-buffer "*RefTeX Select*") | 1984 (reftex-kill-buffer "*RefTeX Select*") |
1985 (switch-to-buffer-other-window "*RefTeX Select*") | 1985 (switch-to-buffer-other-window "*RefTeX Select*") |
1986 (insert help-string) | 1986 (insert help-string) |
1992 (setq truncate-lines t)) | 1992 (setq truncate-lines t)) |
1993 (if (and (pos-visible-in-window-p (point-min)) | 1993 (if (and (pos-visible-in-window-p (point-min)) |
1994 (pos-visible-in-window-p (point-max))) | 1994 (pos-visible-in-window-p (point-max))) |
1995 nil | 1995 nil |
1996 (setq prompt (concat prompt (if scroll " (SPC/DEL=Scroll)" "")))) | 1996 (setq prompt (concat prompt (if scroll " (SPC/DEL=Scroll)" "")))) |
1997 (message prompt) | 1997 (message "%s" prompt) |
1998 (and (equal char ?\?) (setq char (read-char-exclusive))) | 1998 (and (equal char ?\?) (setq char (read-char-exclusive))) |
1999 (while t | 1999 (while t |
2000 (cond ((equal char ?\C-g) (keyboard-quit)) | 2000 (cond ((equal char ?\C-g) (keyboard-quit)) |
2001 ((equal char ?\?)) | 2001 ((equal char ?\?)) |
2002 ((and scroll (equal char ?\ )) | 2002 ((and scroll (equal char ?\ )) |
2003 (condition-case nil (scroll-up) (error nil)) | 2003 (condition-case nil (scroll-up) (error nil)) |
2004 (message prompt)) | 2004 (message "%s" prompt)) |
2005 ((and scroll (equal char ?\C-? )) | 2005 ((and scroll (equal char ?\C-? )) |
2006 (condition-case nil (scroll-down) (error nil)) | 2006 (condition-case nil (scroll-down) (error nil)) |
2007 (message prompt)) | 2007 (message "%s" prompt)) |
2008 (t (message "") | 2008 (t (message "") |
2009 (throw 'exit char))) | 2009 (throw 'exit char))) |
2010 (setq char (read-char-exclusive))))))) | 2010 (setq char (read-char-exclusive))))))) |
2011 | 2011 |
2012 | 2012 |