|
Server IP : 111.118.215.189 / Your IP : 18.218.164.141 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/mh-e/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:36 2024 ;;; 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)