585 |
|
|
586 |
;; Maybe make minibuffer frame visible and/or raise it. |
;; Maybe make minibuffer frame visible and/or raise it. |
587 |
(let ((frame (window-frame (minibuffer-window)))) |
(let ((frame (window-frame (minibuffer-window)))) |
588 |
(if (not (memq (frame-live-p frame) '(nil t))) |
(unless (memq (frame-live-p frame) '(nil t)) |
589 |
(progn |
(unless (frame-visible-p frame) |
590 |
(make-frame-visible frame) |
(make-frame-visible frame)) |
591 |
(if minibuffer-auto-raise |
(if minibuffer-auto-raise |
592 |
(raise-frame frame))))) |
(raise-frame frame)))) |
593 |
|
|
594 |
(setq isearch-mode " Isearch") ;; forward? regexp? |
(setq isearch-mode " Isearch") ;; forward? regexp? |
595 |
(force-mode-line-update) |
(force-mode-line-update) |
1600 |
(concat " [" current-input-method-title "]: ") |
(concat " [" current-input-method-title "]: ") |
1601 |
": ") |
": ") |
1602 |
))) |
))) |
1603 |
(propertize (concat (upcase (substring m 0 1)) (substring m 1)) 'face 'minibuffer-prompt))) |
(propertize (concat (upcase (substring m 0 1)) (substring m 1)) |
1604 |
|
'face 'minibuffer-prompt))) |
1605 |
|
|
1606 |
(defun isearch-message-suffix (&optional c-q-hack ellipsis) |
(defun isearch-message-suffix (&optional c-q-hack ellipsis) |
1607 |
(concat (if c-q-hack "^Q" "") |
(concat (if c-q-hack "^Q" "") |