From: Juanma Barranquero Date: Fri, 21 Mar 2014 00:03:08 +0000 (+0100) Subject: lisp/frameset.el: Make list-registers a bit more informative. X-Git-Tag: emacs-25.0.90~2640^2~344^2~26^2~6^2 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ce1b56e2a92232a055fd777378ebdbab8f07d1a;p=emacs.git lisp/frameset.el: Make list-registers a bit more informative. (frameset--print-register): New function. (frameset-to-register): Use it. --- 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)