25 lines
2.0 KiB
Plaintext
25 lines
2.0 KiB
Plaintext
|
;ELC
|
|||
|
|
;;; Compiled
|
|||
|
|
;;; in Emacs version 26.3
|
|||
|
|
;;; with all optimizations.
|
|||
|
|
|
|||
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|||
|
|
|
|||
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
|||
|
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|||
|
|
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
|
|||
|
|
|
|||
|
|
(defvar tide-lv-buffer-name " *tide-LV*")
|
|||
|
|
#@30 Holds the current LV window.
|
|||
|
|
(defvar tide-lv-wnd nil (#$ . 450))
|
|||
|
|
#@46 Ensure that LV window is live and return it.
|
|||
|
|
(defalias 'tide-lv-window #[nil "\306!\203 \207\307 \310\311\312\313\314 \315\316#)!\211\317\f!\211\203) \320 !\210\202E \320\f!\210\321\322\"\210\312\310\211\323\312\"\210\324\325\312#\210\311\n!\210*\207" [tide-lv-wnd buf ori ignore-window-parameters tide-lv-buffer-name window-size-fixed window-live-p selected-window nil select-window t split-window frame-root-window -1 below get-buffer switch-to-buffer set-window-hscroll 0 set-window-dedicated-p set-window-parameter no-other-window mode-line-format cursor-type] 6 (#$ . 521)])
|
|||
|
|
#@58 Set LV window contents to (`format' FORMAT-STRING ARGS).
|
|||
|
|
(defalias 'tide-lv-message #[(format-string &rest args) "\306\307 #\310\311\n\"\312\211 \313\314 ! r\315\216\316@\317\"\210\320 \n\230\204F ed|\210\nc\210\321\322!\210 \323V\324\312 \325\312\211\323#\210*eb.\207" [format-string args str n-lines deactivate-mark golden-ratio-mode apply format cl-count 10 nil internal--before-with-selected-window tide-lv-window #[nil "\301!\207" [save-selected-window--state internal--after-with-selected-window] 2] select-window norecord buffer-string make-local-variable window-min-height 1 t fit-window-to-buffer save-selected-window--state truncate-lines window-size-fixed window-resize-pixelwise] 5 (#$ . 1123)])
|
|||
|
|
#@39 Delete LV window and kill its buffer.
|
|||
|
|
(defalias 'tide-lv-delete-window #[nil "\302!\205 \303!\304!\210\305 !)\207" [tide-lv-wnd buf window-live-p window-buffer delete-window kill-buffer] 2 (#$ . 1854)])
|
|||
|
|
(provide 'tide-lv)
|