Mercurial > emacs
comparison src/fileio.c @ 54895:0ea7bf2995a9
(Fverify_visited_file_modtime, Fvisited_file_modtime):
Add hyperlink to Elisp manual to the docstring.
author | Luc Teirlinck <teirllm@auburn.edu> |
---|---|
date | Thu, 15 Apr 2004 02:29:35 +0000 |
parents | 4ef1f446e4d9 |
children | c4c66ff76dae 4970ad4995f5 |
comparison
equal
deleted
inserted
replaced
54894:727ae6da06b4 | 54895:0ea7bf2995a9 |
---|---|
5507 } | 5507 } |
5508 | 5508 |
5509 DEFUN ("verify-visited-file-modtime", Fverify_visited_file_modtime, | 5509 DEFUN ("verify-visited-file-modtime", Fverify_visited_file_modtime, |
5510 Sverify_visited_file_modtime, 1, 1, 0, | 5510 Sverify_visited_file_modtime, 1, 1, 0, |
5511 doc: /* Return t if last mod time of BUF's visited file matches what BUF records. | 5511 doc: /* Return t if last mod time of BUF's visited file matches what BUF records. |
5512 This means that the file has not been changed since it was visited or saved. */) | 5512 This means that the file has not been changed since it was visited or saved. |
5513 See Info node `(elisp)Modification Time' for more details. */) | |
5513 (buf) | 5514 (buf) |
5514 Lisp_Object buf; | 5515 Lisp_Object buf; |
5515 { | 5516 { |
5516 struct buffer *b; | 5517 struct buffer *b; |
5517 struct stat st; | 5518 struct stat st; |
5563 | 5564 |
5564 DEFUN ("visited-file-modtime", Fvisited_file_modtime, | 5565 DEFUN ("visited-file-modtime", Fvisited_file_modtime, |
5565 Svisited_file_modtime, 0, 0, 0, | 5566 Svisited_file_modtime, 0, 0, 0, |
5566 doc: /* Return the current buffer's recorded visited file modification time. | 5567 doc: /* Return the current buffer's recorded visited file modification time. |
5567 The value is a list of the form (HIGH . LOW), like the time values | 5568 The value is a list of the form (HIGH . LOW), like the time values |
5568 that `file-attributes' returns. */) | 5569 that `file-attributes' returns. If the current buffer has no recorded |
5570 file modification time, this function returns 0. | |
5571 See Info node `(elisp)Modification Time' for more details. */) | |
5569 () | 5572 () |
5570 { | 5573 { |
5571 return long_to_cons ((unsigned long) current_buffer->modtime); | 5574 return long_to_cons ((unsigned long) current_buffer->modtime); |
5572 } | 5575 } |
5573 | 5576 |