(register-type, register--type): Delete functionsscratch/cleanup-register-preview

Automatically figure out which regval can be used for insertion
and jump based on the presence of a matching method.

* lisp/register.el (register-type, register--type): Delete functions.
(register--get-method-type, register--jumpable-p)
(register--insertable-p): New functions.
(jump-to-register, insert-register): Use them.
* lisp/frameset.el (register--type): Delete method.

1 files changed, 0 insertions, 5 deletions

diff --git a/lisp/frameset.el b/lisp/frameset.el
index cbdbc1ac239..ee30f77c3ba 100644
--- a/lisp/frameset.el
+++ b/lisp/frameset.el
@@ -1444,11 +1444,6 @@ Called from `list-registers' and `view-register'.  Internal use only."
                    (if (= 1 ns) "" "s")
                    (format-time-string "%c" (frameset-timestamp fs))))))
 
-(cl-defmethod register--type ((_regval frameset-register))
-  ;; FIXME: Why `frame' rather than `frameset'?
-  ;; FIXME: We shouldn't need to touch an internal function.
-  'frame)
-
 ;;;###autoload
 (defun frameset-to-register (register)
   "Store the current frameset in register REGISTER.