Mercurial > emacs
changeset 111848:20e12bebbbb5
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.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 07 Dec 2010 19:45:45 -0800 |
| parents | dc23e3f2eabb |
| children | 33e39f4c2506 |
| files | doc/lispref/ChangeLog doc/lispref/buffers.texi src/ChangeLog src/fileio.c |
| diffstat | 4 files changed, 27 insertions(+), 17 deletions(-) [+] |
line wrap: on
line diff
--- a/doc/lispref/ChangeLog Tue Dec 07 21:18:02 2010 -0500 +++ b/doc/lispref/ChangeLog Tue Dec 07 19:45:45 2010 -0800 @@ -1,7 +1,11 @@ +2010-12-08 Glenn Morris <rgm@gnu.org> + + * buffers.texi (Modification Time): + verify-visited-file-modtime now defaults to the current buffer. + 2010-11-27 Chong Yidong <cyd@stupidchicken.com> - * 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.
--- a/doc/lispref/buffers.texi Tue Dec 07 21:18:02 2010 -0500 +++ b/doc/lispref/buffers.texi Tue Dec 07 19:45:45 2010 -0800 @@ -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, -@c 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +@c 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 +@c 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.) -@defun 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. +@defun 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 -@ignore - arch-tag: 2e53cfab-5691-41f6-b5a8-9c6a3462399c -@end ignore
--- a/src/ChangeLog Tue Dec 07 21:18:02 2010 -0500 +++ b/src/ChangeLog Tue Dec 07 19:45:45 2010 -0800 @@ -1,3 +1,7 @@ +2010-12-08 Glenn Morris <rgm@gnu.org> + + * fileio.c (Fverify_visited_file_modtime): Default to current buffer. + 2010-12-06 Lars Magne Ingebrigtsen <larsi@gnus.org> * xml.c (parse_region): Ignore blank HTML nodes.
--- a/src/fileio.c Tue Dec 07 21:18:02 2010 -0500 +++ b/src/fileio.c Tue Dec 07 19:45:45 2010 -0800 @@ -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) */