693 |
(+ (/ (- outer-priority inner-priority) 2) inner-priority)) |
(+ (/ (- outer-priority inner-priority) 2) inner-priority)) |
694 |
(t TeX-overlay-priority-step)))) ) |
(t TeX-overlay-priority-step)))) ) |
695 |
|
|
696 |
|
|
697 |
|
(if (fboundp 'completing-read-multiple) |
698 |
|
(defalias 'TeX-completing-read-multiple 'completing-read-multiple) |
699 |
|
(defun TeX-completing-read-multiple |
700 |
|
(prompt table &optional predicate require-match initial-input |
701 |
|
hist def inherit-input-method) |
702 |
|
"Poor mans implementation of Emacs' `completing-read-multiple' for XEmacs." |
703 |
|
(multi-prompt "," nil prompt table predicate require-match initial-input hist))) |
704 |
|
|
705 |
;;; Special support for GNU Emacs |
;;; Special support for GNU Emacs |
706 |
|
|
707 |
(unless (featurep 'xemacs) |
(unless (featurep 'xemacs) |