[Emacs-diffs] /srv/bzr/emacs/trunk r102606: Make verify-visited-file-modtime default to the current buffer.

[Glenn Morris]

------------------------------------------------------------
revno: 102606
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2010-12-07 19:45:45 -0800
message:
  Make verify-visited-file-modtime default to the current buffer.
  
  * src/fileio.c (Fverify_visited_file_modtime): Default to current buffer.
  * doc/lispref/buffers.texi (Modification Time):
  verify-visited-file-modtime now defaults to the current buffer.
modified:
  doc/lispref/ChangeLog
  doc/lispref/buffers.texi
  src/ChangeLog
  src/fileio.c

=== modified file 'doc/lispref/ChangeLog'
--- a/doc/lispref/ChangeLog     2010-11-27 20:04:57 +0000
+++ b/doc/lispref/ChangeLog     2010-12-08 03:45:45 +0000
@@ -1,7 +1,11 @@
+2010-12-08  Glenn Morris  <address@hidden>
+
+       * buffers.texi (Modification Time):
+       verify-visited-file-modtime now defaults to the current buffer.
+
 2010-11-27  Chong Yidong  <address@hidden>
 
-       * nonascii.texi (Converting Representations): Document
-       byte-to-string.
+       * nonascii.texi (Converting Representations): Document byte-to-string.
 
        * strings.texi (Creating Strings): Don't mention semi-obsolete
        function char-to-string.

=== modified file 'doc/lispref/buffers.texi'
--- a/doc/lispref/buffers.texi  2010-04-14 22:41:21 +0000
+++ b/doc/lispref/buffers.texi  2010-12-08 03:45:45 +0000
@@ -1,7 +1,8 @@
 @c -*-texinfo-*-
 @c This is part of the GNU Emacs Lisp Reference Manual.
 @c Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2001, 2002,
address@hidden   2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010  Free Software 
Foundation, Inc.
address@hidden   2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
address@hidden   Free Software Foundation, Inc.
 @c See the file elisp.texi for copying conditions.
 @setfilename ../../info/buffers
 @node Buffers, Windows, Backups and Auto-Saving, Top
@@ -594,12 +595,12 @@
 described below before saving the file.  (@xref{File Attributes},
 for how to examine a file's modification time.)
 
address@hidden verify-visited-file-modtime buffer
-This function compares what @var{buffer} has recorded for the
-modification time of its visited file against the actual modification
-time of the file as recorded by the operating system.  The two should be
-the same unless some other process has written the file since Emacs
-visited or saved it.
address@hidden verify-visited-file-modtime &optional buffer
+This function compares what @var{buffer} (by default, the
+current-buffer) has recorded for the modification time of its visited
+file against the actual modification time of the file as recorded by the
+operating system.  The two should be the same unless some other process
+has written the file since Emacs visited or saved it.
 
 The function returns @code{t} if the last actual modification time and
 Emacs's recorded modification time are the same, @code{nil} otherwise.
@@ -1223,6 +1224,3 @@
 This function returns the current gap size of the current buffer.
 @end defun
 
address@hidden
-   arch-tag: 2e53cfab-5691-41f6-b5a8-9c6a3462399c
address@hidden ignore

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2010-12-06 16:59:52 +0000
+++ b/src/ChangeLog     2010-12-08 03:45:45 +0000
@@ -1,3 +1,7 @@
+2010-12-08  Glenn Morris  <address@hidden>
+
+       * fileio.c (Fverify_visited_file_modtime): Default to current buffer.
+
 2010-12-06  Lars Magne Ingebrigtsen  <address@hidden>
 
        * xml.c (parse_region): Ignore blank HTML nodes.

=== modified file 'src/fileio.c'
--- a/src/fileio.c      2010-10-04 17:22:57 +0000
+++ b/src/fileio.c      2010-12-08 03:45:45 +0000
@@ -5044,9 +5044,10 @@
 }
 
 DEFUN ("verify-visited-file-modtime", Fverify_visited_file_modtime,
-       Sverify_visited_file_modtime, 1, 1, 0,
+       Sverify_visited_file_modtime, 0, 1, 0,
        doc: /* Return t if last mod time of BUF's visited file matches what 
BUF records.
 This means that the file has not been changed since it was visited or saved.
+If BUF is omitted or nil, it defaults to the current buffer.
 See Info node `(elisp)Modification Time' for more details.  */)
   (Lisp_Object buf)
 {
@@ -5055,8 +5056,13 @@
   Lisp_Object handler;
   Lisp_Object filename;
 
-  CHECK_BUFFER (buf);
-  b = XBUFFER (buf);
+  if (NILP (buf))
+    b = current_buffer;
+  else
+    {
+      CHECK_BUFFER (buf);
+      b = XBUFFER (buf);
+    }
 
   if (!STRINGP (b->filename)) return Qt;
   if (b->modtime == 0) return Qt;
@@ -5863,5 +5869,3 @@
 #endif
 }
 
-/* arch-tag: 64ba3fd7-f844-4fb2-ba4b-427eb928786c
-   (do not change this comment) */