mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 14:50:19 +02:00
Code Activity

(patch-send): Renamed from `patch-submit'.

Browse source 
Gadzooks what kind of world is this?
This commit is contained in:
Thien-Thi Nguyen 2001-11-19 06:59:38 +00:00
parent 3faa54e7dd
commit ebc43ccb6d
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
emacs/patch.el
View file

@ -31,9 +31,9 @@
;; On the patch creation side of things, there are various version ;; On the patch creation side of things, there are various version
;; control systems that are happy to write a diff to stdout (and ;; control systems that are happy to write a diff to stdout (and
;; numerous Emacs interfaces to them all). Thus, we provide only a ;; numerous Emacs interfaces to them all). Thus, we provide only a
;; simple `patch-submit' that composes mail from the current buffer; ;; simple `patch-send' that composes mail from the current buffer;
;; the contents of that buffer are left as an exercise for the patch ;; the contents of that buffer are left as an exercise for the patch
;; creator. When preparing the mail, `patch-submit' scans the patch ;; creator. When preparing the mail, `patch-send' scans the patch
;; for standard filename headers and sets up a skeleton change log -- ;; for standard filename headers and sets up a skeleton change log --
;; filling this in is a good way to earn respect from maintainers (hint ;; filling this in is a good way to earn respect from maintainers (hint
;; hint). Type `C-c C-c' to send the mail when you are done. (See ;; hint). Type `C-c C-c' to send the mail when you are done. (See
@ -82,7 +82,7 @@
files files
"\n"))) "\n")))
(defun patch-submit (buffer subject) (defun patch-send (buffer subject)
(interactive "bBuffer: \nsSubject: ") (interactive "bBuffer: \nsSubject: ")
(when (string= "" subject) (when (string= "" subject)
(error "(empty subject)")) (error "(empty subject)"))