[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r116817: lisp/frameset.el: Make list-registers a bit
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] trunk r116817: lisp/frameset.el: Make list-registers a bit more informative. |
Date: |
Fri, 21 Mar 2014 00:03:19 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r116817: lisp/frameset.el: Make list-registers a bit more informative.,
Juanma Barranquero <=