Current File : //usr/local/share/emacs/27.2/lisp/mh-e/mh-buffers.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst mh-temp-buffer " *mh-temp*")
(defconst mh-temp-checksum-buffer " *mh-checksum*")
(defconst mh-temp-fetch-buffer " *mh-fetch*")
(defconst mh-temp-index-buffer " *mh-index*")
(defconst mh-aliases-buffer "*MH-E Aliases*")
(defconst mh-folders-buffer "*MH-E Folders*")
(defconst mh-help-buffer "*MH-E Help*")
(defconst mh-info-buffer "*MH-E Info*")
(defconst mh-log-buffer "*MH-E Log*")
(defconst mh-mail-delivery-buffer "*MH-E Mail Delivery*")
(defconst mh-recipients-buffer "*MH-E Recipients*")
(defconst mh-sequences-buffer "*MH-E Sequences*")
#@45 Number of lines to keep in `mh-log-buffer'.
(defvar mh-log-buffer-lines 100 (#$ . 961))
#@300 If `mh-log-buffer' is too big then truncate it.
If the number of lines in `mh-log-buffer' exceeds
`mh-log-buffer-lines' then keep only the last
`mh-log-buffer-lines'. As a side effect the point is set to the
end of the log buffer.
The function returns the size of the final size of the log buffer.
(defalias 'mh-truncate-log-buffer #[nil "r\302!q\210db\210\212 [y\303\232\203 e`|\210)o\204. \212\304y\303\232\205' \305f\306\232)\204. \307c\210\310 )\207" [mh-log-buffer mh-log-buffer-lines get-buffer-create 0 -1 nil 12 "\n\f\n" buffer-size] 2 (#$ . 1056)])
(provide 'mh-buffers)
Mini Shell