[Emacs-diffs] trunk r116817: lisp/frameset.el: Make list-registers a bit more informative.

[Juanma Barranquero]

------------------------------------------------------------
revno: 116817
revision-id: address@hidden
parent: address@hidden
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Fri 2014-03-21 01:03:08 +0100
message:
  lisp/frameset.el: Make list-registers a bit more informative.
  
  (frameset--print-register): New function.
  (frameset-to-register): Use it.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/frameset.el               frameset.el-20130802043218-tfwraxv1c2zlibpw-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-03-20 18:22:17 +0000
+++ b/lisp/ChangeLog    2014-03-21 00:03:08 +0000
@@ -1,3 +1,8 @@
+2014-03-21  Juanma Barranquero  <address@hidden>
+
+       * frameset.el (frameset--print-register): New function.
+       (frameset-to-register): Use it.
+
 2014-03-20  Juanma Barranquero  <address@hidden>
 
        * progmodes/hideif.el (hif-string-to-number): New function.

=== modified file 'lisp/frameset.el'
--- a/lisp/frameset.el  2014-03-12 18:36:26 +0000
+++ b/lisp/frameset.el  2014-03-21 00:03:08 +0000
@@ -1272,6 +1272,17 @@
        (with-current-buffer buffer (goto-char (aref data 2)))))))
 
 ;;;###autoload
+(defun frameset--print-register (data)
+  "Print basic info about frameset stored in DATA.
+Called from `list-registers' and `view-register'.  Internal use only."
+  (let* ((fs (aref data 0))
+        (ns (length (frameset-states fs))))
+    (princ (format "a frameset (%d frame%s, saved on %s)."
+                  ns
+                  (if (= 1 ns) "" "s")
+                  (format-time-string "%c" (frameset-timestamp fs))))))
+
+;;;###autoload
 (defun frameset-to-register (register)
   "Store the current frameset in register REGISTER.
 Use \\[jump-to-register] to restore the frameset.
@@ -1288,7 +1299,7 @@
                         ;; in the current buffer, so record that separately.
                         (frameset-frame-id nil)
                         (point-marker))
-                :print-func (lambda (_data) (princ "a frameset."))
+                :print-func #'frameset--print-register
                 :jump-func #'frameset--jump-to-register)))
 
 (provide 'frameset)