Merge from emacs--rel--22

Patches applied:

 * emacs--rel--22  (patch 84-87)

   - Update from CVS
   - Change capitalization of VC backend names for new backends

2007-08-02  Richard M. Stallman  <rms@gnu.org>

   * lisp/mail/rmailsum.el (rmail-make-summary-line): Find end of msg number
   to update deleted flag.

   * lisp/cus-edit.el (customize-apropos, customize-apropos-options)
   (customize-apropos-faces, customize-apropos-groups): Improve prompt.

   * lisp/menu-bar.el (menu-bar-help-menu): Add "About GNU" menu item.

   * lisp/startup.el (fancy-splash-head, startup-echo-area-message):
   Change message text.

   * lisp/emulation/tpu-edt.el (next-line-internal): Setting deleted.
   All callers use line-move.

   * lisp/progmodes/compile.el (compilation-find-buffer): Return current
   buffer immediately if suitable.
   (compile, compilation-buffer-name, compilation-start): Doc fixes.

2007-07-31  Daiki Ueno  <ueno@unixuser.org>

   * lisp/faces.el (face-normalize-spec): New function.
   (frame-set-background-mode): Normalize face-spec before calling
   face-spec-match-p.

2007-07-31  Stefan Monnier  <monnier@iro.umontreal.ca>

   * lisp/server.el (server-window): Add switch-to-buffer-other-frame option.

2007-08-03  Richard M. Stallman  <rms@gnu.org>

   * src/fileio.c (Fvisited_file_modtime): Use make_time.

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-844

3 files changed, 10 insertions, 8 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index f26f918c941..87376db4e7f 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2007-08-03  Richard Stallman  <rms@gnu.org>
+
+        * fileio.c (Fvisited_file_modtime): Use make_time.
+
 2007-08-01  Ryo Yoshitake  <ryo@shiftmode.net>  (tiny change)
 
         * mac.c (init_mac_osx_environment): Adjust load-path on self-contained
diff --git a/src/fileio.c b/src/fileio.c
index f70109dc2ad..328b90a0a94 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -5692,11 +5692,9 @@ file modification time, this function returns 0.
 See Info node `(elisp)Modification Time' for more details.  */)
      ()
 {
-  Lisp_Object tcons;
-  tcons = long_to_cons ((unsigned long) current_buffer->modtime);
-  if (CONSP (tcons))
-    return list2 (XCAR (tcons), XCDR (tcons));
-  return tcons;
+  if (! current_buffer->modtime)
+    return make_number (0);
+  return make_time ((time_t) current_buffer->modtime);
 }
 
 DEFUN ("set-visited-file-modtime", Fset_visited_file_modtime,
diff --git a/src/xselect.c b/src/xselect.c
index 729c05f190a..33468f0d63a 100644
--- a/src/xselect.c
+++ b/src/xselect.c
@@ -1854,9 +1854,9 @@ selection_data_to_lisp_data (display, data, size, type, format)
         }
     }
 
-  /* Convert a single 16 or small 32 bit number to a Lisp_Int.
-     If the number is > 16 bits, convert it to a cons of integers,
-     16 bits in each half.
+  /* Convert a single 16-bit number or a small 32-bit number to a Lisp_Int.
+     If the number is 32 bits and won't fit in a Lisp_Int,
+     convert it to a cons of integers, 16 bits in each half.
    */
   else if (format == 32 && size == sizeof (int))
     return long_to_cons (((unsigned int *) data) [0]);