JezK
Edit File: mh-buffers.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:55:49 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mh-e/mh-buffers.el ;;; in Emacs version 24.3.1 ;;; 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 (#$ . 1111)) #@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 (#$ . 1207)]) (provide 'mh-buffers)