mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(w32-append-code-lines): New function.

Browse Source
This commit is contained in:
Eli Zaretskii 2006-12-09 12:38:32 +00:00
parent 5641e7a93a
commit d1dcf3e779
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2006-12-09 Eli Zaretskii <eliz@gnu.org>
* w32-fns.el (w32-append-code-lines): New function.
2006-12-09 Romain Francoise <romain@orebokech.com>
* comint.el (comint-insert-input): Delete obsolete comment.

14
lisp/w32-fns.el
View File

@ -469,5 +469,19 @@ that Emacs is unable to cope with."
(expand-file-name (pop command-line-args-left))))
(batch-update-autoloads)))
(defun w32-append-code-lines (orig extra)
"Append non-empty non-comment lines in the file EXTRA to the file ORIG.
This function saves all buffers and kills the Emacs session, without asking
for any permissions.
This is required because the Windows build environment is not required
to include Sed, which is used by leim/Makefile.in to do the job."
(find-file orig)
(goto-char (point-max))
(insert-file-contents extra)
(delete-matching-lines "^$\\|^;")
(save-buffers-kill-emacs t))
;;; arch-tag: c49b48cc-0f4f-454f-a274-c2dc34815e14
;;; w32-fns.el ends here