Current File : //usr/local/share/emacs/27.2/lisp/obsolete/gulp.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314\315\316\317\306\301& \210\310\320\321\322\316\323\306\301&\210\310\324\325\326\316\327\306\301&\210\310\330\331\332\316\323\306\301&\210\310\333\334\335\316\323\306\301&\207" [custom-declare-group gulp nil "Ask for updates for Lisp packages." :prefix "-" :group maint custom-declare-variable gulp-discard "^;+ *Maintainer: *\\(FSF\\|emacs-devel@gnu\\.org\\) *$" "The regexp matching the packages not requiring the request for updates." :version "24.4" :type regexp gulp-tmp-buffer "*gulp*" "The name of the temporary buffer." string gulp-max-len 2000 "Distance into a Lisp source file to scan for keywords." integer gulp-request-header (concat "This message was created automatically.\nI'm going to start pretesting a new version of GNU Emacs soon, so I'd\nlike to ask if you have any updates for the Emacs packages you work on.\nYou're listed as the maintainer of the following package(s):\n\n") "The starting text of a gulp message." gulp-request-end (concat "\nIf you have any changes since the version in the previous release (" (format "%d.%d" emacs-major-version emacs-minor-version) "),\nplease send them to me ASAP.\n\nPlease don't send the whole file. Instead, please send a patch made with\n`diff -c' that shows precisely the changes you would like me to install.\nAlso please include itemized change log entries for your changes;\nplease use lisp/ChangeLog* as a guide for the style and for what kinds\nof information to include.\n\nThanks.") "The closing text in a gulp message."] 10)
#@469 Send requests for updates to the authors of Lisp packages in directory DIR.
For each maintainer, the message consists of `gulp-request-header',
followed by the list of packages (with modification times if the optional
prefix argument TIME is non-nil), concluded with `gulp-request-end'.
You can't edit the messages, but you can confirm whether to send each one.
The list of addresses for which you decided not to send mail
is left in the `*gulp*' buffer at the end.
(defalias 'gulp-send-requests #[(dir &optional time) "r\306!q\210\307\310 \311\312\313$ \"\313\311\211\211 \314\315\"\211@\211\203Z \316\nA\"\317\320\311\n@\"\210eb\210\321\322!\203E \323 \210\202Q \324 \210q\210\325\326\n\"c\210A\211\202! -q\210\311\211)\207" [gulp-tmp-buffer dir node msg mail-setup-hook buffer-undo-list get-buffer-create gulp-create-m-p-alist directory-files nil "\\`[^=].*\\.el\\'" t sort #[(a b) "@ @\231\207" [a b] 2] gulp-create-message #[nil "\301 \210\302c\210db\210c\207" [msg mail-subject "It's time for Emacs updates again"] 1] mail y-or-n-p "Send? " mail-send kill-this-buffer format "%s\n\n" m-p-alist time] 7 (#$ . 1982) "DRequest updates for Lisp directory: \nP"])
#@70 Return the message string for REC, which is a list like (FILE TIME).
(defalias 'gulp-create-message #[(rec time) "\306 @\211\203\" \307\n@\f\205 \310\nAP\311\260 A\211\202
P*\207" [gulp-request-header str node rec time gulp-request-end nil " " " Last modified: " "\n"] 6 (#$ . 3179)])
#@135 Create the maintainer/package alist for files in FLIST in DIR.
That is a list of elements, each of the form (MAINTAINER PACKAGES...).
(defalias 'gulp-create-m-p-alist #[(flist dir) "\212\306\211\211\211\211\211 \307
!\210
q\210\310\203^ \311@\211\"\211A@\211\203U \312\n
\"\211\203L \n\f B ABB\313
\"B\202U \n\fABD
BA\211\204 \314 \210
.\207" [fl-tm tm mnt node filen mplist nil get-buffer-create t gulp-maintainer assoc delete erase-buffer gulp-tmp-buffer buffer-undo-list flist dir] 7 (#$ . 3483)])
#@79 Return a list (MAINTAINER TIMESTAMP) for the package FILENM in directory DIR.
(defalias 'gulp-maintainer #[(filenm dir) "\212\306 \"\307\310\311\312\n!\313\234\"
q\210\314 \210\315\n\307\316$\210\317b\210\320\307\321#\2030 \307\202^ \317b\210\320\322\307\321#\203F \323\317!\211G\316V\204U \317b\210\320\324\307\321#\203U \323\317! G\316U\203^ \307 \f,B\207" [filenm dir fl mnt timest gulp-tmp-buffer expand-file-name nil format-time-string "%Y-%m-%d %a %T %Z" file-attributes 5 erase-buffer insert-file-contents 0 1 re-search-forward t "^;+ *Maintainer: \\(.*\\)$" match-string "^;+ *Author: \\(.*\\)$" gulp-max-len gulp-discard] 5 (#$ . 4021)])
(provide 'gulp)
Mini Shell