From 6ce1b56e2a92232a055fd777378ebdbab8f07d1a Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 21 Mar 2014 01:03:08 +0100 Subject: [PATCH] lisp/frameset.el: Make list-registers a bit more informative. (frameset--print-register): New function. (frameset-to-register): Use it. --- lisp/ChangeLog | 5 +++++ lisp/frameset.el | 13 ++++++++++++- 2 files changed, 17 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 30e76c013b7..e51a0efd623 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-03-21 Juanma Barranquero + + * frameset.el (frameset--print-register): New function. + (frameset-to-register): Use it. + 2014-03-20 Juanma Barranquero * progmodes/hideif.el (hif-string-to-number): New function. diff --git a/lisp/frameset.el b/lisp/frameset.el index 05fae1b4fa2..3a43f39600c 100644 --- a/lisp/frameset.el +++ b/lisp/frameset.el @@ -1271,6 +1271,17 @@ Called from `jump-to-register'. Internal use only." (set-frame-selected-window frame window) (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. @@ -1288,7 +1299,7 @@ Interactively, reads the register using `register-read-with-preview'." ;; 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) -- 2.39.5