[Qemacs-commit] qemacs buffer.c qe.h variables.c

[Charlie Gordon]

CVSROOT:        /sources/qemacs
Module name:    qemacs
Changes by:     Charlie Gordon <chqrlie>        14/03/15 23:15:54

Modified files:
        .              : buffer.c qe.h variables.c 

Log message:
        add global variable backup-inhibited
        
        * do not backup files if backup-inhibited

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/qemacs/buffer.c?cvsroot=qemacs&r1=1.76&r2=1.77
http://cvs.savannah.gnu.org/viewcvs/qemacs/qe.h?cvsroot=qemacs&r1=1.151&r2=1.152
http://cvs.savannah.gnu.org/viewcvs/qemacs/variables.c?cvsroot=qemacs&r1=1.12&r2=1.13

Patches:
Index: buffer.c
===================================================================
RCS file: /sources/qemacs/qemacs/buffer.c,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -b -r1.76 -r1.77
--- buffer.c    15 Mar 2014 22:52:51 -0000      1.76
+++ buffer.c    15 Mar 2014 23:15:53 -0000      1.77
@@ -2181,6 +2181,7 @@
  */
 int eb_save_buffer(EditBuffer *b)
 {
+    QEmacsState *qs = &qe_state;
     int ret, st_mode;
     char buf1[MAX_FILENAME_SIZE];
     const char *filename;
@@ -2195,8 +2196,9 @@
     if (stat(filename, &st) == 0)
         st_mode = st.st_mode & 0777;
 
+    if (!qs->backup_inhibited
+    &&  strlen(filename) < MAX_FILENAME_SIZE - 1) {
     /* backup old file if present */
-    if (strlen(filename) < MAX_FILENAME_SIZE - 1) {
         if (snprintf(buf1, sizeof(buf1), "%s~", filename) < ssizeof(buf1)) {
             // should check error code
             rename(filename, buf1);

Index: qe.h
===================================================================
RCS file: /sources/qemacs/qemacs/qe.h,v
retrieving revision 1.151
retrieving revision 1.152
diff -u -b -r1.151 -r1.152
--- qe.h        15 Mar 2014 22:52:51 -0000      1.151
+++ qe.h        15 Mar 2014 23:15:54 -0000      1.152
@@ -1367,6 +1367,7 @@
     int default_tab_width;      /* 8 */
     int default_fill_column;    /* 70 */
     EOLType default_eol_type;  /* EOL_UNIX */
+    int backup_inhibited;  /* prevent qemacs from backing up files */
 };
 
 extern QEmacsState qe_state;

Index: variables.c
===================================================================
RCS file: /sources/qemacs/qemacs/variables.c,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -b -r1.12 -r1.13
--- variables.c 23 Jan 2014 12:56:23 -0000      1.12
+++ variables.c 15 Mar 2014 23:15:54 -0000      1.13
@@ -47,6 +47,7 @@
     S_VAR( "show-unicode", show_unicode, VAR_NUMBER, VAR_RW )
     S_VAR( "default-tab-width", default_tab_width, VAR_NUMBER, VAR_RW )
     S_VAR( "default-fill-column", default_fill_column, VAR_NUMBER, VAR_RW )
+    S_VAR( "backup-inhibited", backup_inhibited, VAR_NUMBER, VAR_RW )
 
     //B_VAR( "screen-charset", charset, VAR_NUMBER, VAR_RW )