emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/gnus/gmm-utils.el,v


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/gnus/gmm-utils.el,v
Date: Sun, 15 Oct 2006 02:49:48 +0000

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     06/10/15 02:49:46

Index: lisp/gnus/gmm-utils.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gmm-utils.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- lisp/gnus/gmm-utils.el      3 Oct 2006 04:58:51 -0000       1.3
+++ lisp/gnus/gmm-utils.el      15 Oct 2006 02:49:45 -0000      1.4
@@ -401,6 +401,21 @@
                 (string-match "^\\(.+\\)-mode$" mode)
                 (match-string 1 mode))))))
 
+(defun gmm-write-region (start end filename &optional append visit
+                              lockname mustbenew)
+  "Compatibility function for `write-region'.
+
+In XEmacs, the seventh argument of `write-region' specifies the
+coding-system."
+  (if (and mustbenew
+          (or (featurep 'xemacs)
+              (= emacs-major-version 20)))
+      (if (file-exists-p filename)
+         (signal 'file-already-exists
+                 (list "File exists" filename))
+       (write-region start end filename append visit lockname))
+    (write-region start end filename append visit lockname mustbenew)))
+
 (provide 'gmm-utils)
 
 ;; arch-tag: e0b60920-2ce6-40c1-bfc0-cadbbe26b602




reply via email to

[Prev in Thread] Current Thread [Next in Thread]