923 |
|
|
924 |
\\{recentf-dialog-mode-map}" |
\\{recentf-dialog-mode-map}" |
925 |
(interactive) |
(interactive) |
926 |
|
(kill-all-local-variables) |
927 |
(setq major-mode 'recentf-dialog-mode) |
(setq major-mode 'recentf-dialog-mode) |
928 |
(setq mode-name "recentf-dialog") |
(setq mode-name "recentf-dialog") |
929 |
(use-local-map recentf-dialog-mode-map)) |
(use-local-map recentf-dialog-mode-map) |
930 |
|
(run-mode-hooks 'recentf-dialog-mode-hook)) |
931 |
|
|
932 |
;;; Hooks |
;;; Hooks |
933 |
;; |
;; |
1004 |
(get-buffer-create (format "*%s - Edit list*" recentf-menu-title)) |
(get-buffer-create (format "*%s - Edit list*" recentf-menu-title)) |
1005 |
(switch-to-buffer (current-buffer)) |
(switch-to-buffer (current-buffer)) |
1006 |
;; Cleanup buffer |
;; Cleanup buffer |
|
(kill-all-local-variables) |
|
1007 |
(let ((inhibit-read-only t) |
(let ((inhibit-read-only t) |
1008 |
(ol (overlay-lists))) |
(ol (overlay-lists))) |
1009 |
(erase-buffer) |
(erase-buffer) |
1010 |
;; Delete all the overlays. |
;; Delete all the overlays. |
1011 |
(mapc 'delete-overlay (car ol)) |
(mapc 'delete-overlay (car ol)) |
1012 |
(mapc 'delete-overlay (cdr ol))) |
(mapc 'delete-overlay (cdr ol))) |
1013 |
|
(recentf-dialog-mode) |
1014 |
(setq recentf-edit-selected-items nil) |
(setq recentf-edit-selected-items nil) |
1015 |
;; Insert the dialog header |
;; Insert the dialog header |
1016 |
(widget-insert |
(widget-insert |
1047 |
'push-button |
'push-button |
1048 |
:notify 'recentf-cancel-dialog |
:notify 'recentf-cancel-dialog |
1049 |
"Cancel") |
"Cancel") |
|
(recentf-dialog-mode) |
|
1050 |
(widget-setup) |
(widget-setup) |
1051 |
(goto-char (point-min)))) |
(goto-char (point-min)))) |
1052 |
|
|
1102 |
(with-current-buffer (get-buffer-create buffer-name) |
(with-current-buffer (get-buffer-create buffer-name) |
1103 |
(switch-to-buffer (current-buffer)) |
(switch-to-buffer (current-buffer)) |
1104 |
;; Cleanup buffer |
;; Cleanup buffer |
|
(kill-all-local-variables) |
|
1105 |
(let ((inhibit-read-only t) |
(let ((inhibit-read-only t) |
1106 |
(ol (overlay-lists))) |
(ol (overlay-lists))) |
1107 |
(erase-buffer) |
(erase-buffer) |
1108 |
;; Delete all the overlays. |
;; Delete all the overlays. |
1109 |
(mapc 'delete-overlay (car ol)) |
(mapc 'delete-overlay (car ol)) |
1110 |
(mapc 'delete-overlay (cdr ol))) |
(mapc 'delete-overlay (cdr ol))) |
1111 |
|
(recentf-dialog-mode) |
1112 |
;; Insert the dialog header |
;; Insert the dialog header |
1113 |
(widget-insert "Click on a file to open it. ") |
(widget-insert "Click on a file to open it. ") |
1114 |
(widget-insert "Click on Cancel or type \"q\" to quit.\n\n" ) |
(widget-insert "Click on Cancel or type \"q\" to quit.\n\n" ) |
1124 |
'push-button |
'push-button |
1125 |
:notify 'recentf-cancel-dialog |
:notify 'recentf-cancel-dialog |
1126 |
"Cancel") |
"Cancel") |
|
(recentf-dialog-mode) |
|
1127 |
(widget-setup) |
(widget-setup) |
1128 |
(goto-char (point-min)))) |
(goto-char (point-min)))) |
1129 |
|
|