Lines Matching defs:buffer
1 ;;; mh-buffers.el --- MH-E buffer constants and utilities
36 ;; variable names have the form mh-temp-.*-buffer.
37 (defconst mh-temp-buffer " *mh-temp*") ;scratch
38 (defconst mh-temp-checksum-buffer " *mh-checksum*")
39 (defconst mh-temp-fetch-buffer " *mh-fetch*") ;wget/curl/fetch output
40 (defconst mh-temp-index-buffer " *mh-index*")
45 ;; mh-quit), and the variable names have the form mh-.*-buffer.
47 (defconst mh-aliases-buffer "*MH-E Aliases*") ;alias lookups
48 (defconst mh-folders-buffer "*MH-E Folders*") ;folder list
49 (defconst mh-help-buffer "*MH-E Help*") ;quick help
50 (defconst mh-info-buffer "*MH-E Info*") ;version information buffer
51 (defconst mh-log-buffer "*MH-E Log*") ;output of MH commands and so on
52 (defconst mh-mail-delivery-buffer "*MH-E Mail Delivery*") ;mail delivery log
53 (defconst mh-recipients-buffer "*MH-E Recipients*") ;killed when draft sent
54 (defconst mh-sequences-buffer "*MH-E Sequences*") ;sequences list
56 (defvar mh-log-buffer-lines 100
57 "Number of lines to keep in `mh-log-buffer'.")
62 (defun mh-truncate-log-buffer ()
63 "If `mh-log-buffer' is too big then truncate it.
64 If the number of lines in `mh-log-buffer' exceeds
65 `mh-log-buffer-lines' then keep only the last
66 `mh-log-buffer-lines'. As a side effect the point is set to the
67 end of the log buffer.
69 The function returns the size of the final size of the log buffer."
70 (with-current-buffer (get-buffer-create mh-log-buffer)
73 (when (equal (forward-line (- mh-log-buffer-lines)) 0)
81 (buffer-size)))