- (mapc
- (lambda (register)
- (let* ((key (char-to-string (car register)))
- (val (cdr register))
- (typ (register-list-get-type val))
- (hdl (register-list-get-handler register typ)))
- (when (string-match typ type)
- (insert
- (format " %s %s %s\n"
- (propertize key 'face 'bold 'register register
- 'register-handler hdl)
- (propertize (concat "[" typ "]")
- 'mouse-face 'highlight
- 'help-echo "mouse-2: restrict to this type"
- 'register-handler
- `(lambda()
- (register-list-preserve-pos nil
- (register-list
- ,typ ,register-list-current-fontification))))
- (propertize (register-list-prepare-string
- (register-list-value-to-string val typ) fontify)
- 'mouse-face 'highlight
- 'register-handler hdl
- 'help-echo "mouse-2: use this register"))))))
- register-alist))
+ (dolist (register register-alist)
+ (let* ((key (char-to-string (car register)))
+ (val (cdr register))
+ (typ (register-list-get-type val))
+ (hdl (register-list-get-handler register typ)))
+ (when (string-match typ type)
+ (insert
+ (format " %s %s %s\n"
+ (propertize key 'face 'bold 'register register
+ 'register-handler hdl)
+ (propertize (concat "[" typ "]")
+ 'mouse-face 'highlight
+ 'help-echo "mouse-2: restrict to this type"
+ 'register-handler
+ (lambda ()
+ (register-list-preserve-pos nil
+ (register-list
+ typ register-list-current-fontification))))
+ (propertize (register-list-prepare-string
+ (register-list-value-to-string val typ) fontify)
+ 'mouse-face 'highlight
+ 'register-handler hdl
+ 'help-echo "mouse-2: use this register")))))))