/[emacs]/emacs/lisp/recentf.el
ViewVC logotype

Diff of /emacs/lisp/recentf.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37 by rms, Tue May 31 04:19:10 2005 UTC revision 1.38 by lute, Tue Jun 14 12:02:42 2005 UTC
# Line 923  IGNORE arguments." Line 923  IGNORE arguments."
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  ;;  ;;
# Line 1002  That is to select files to be deleted fr Line 1004  That is to select files to be deleted fr
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
# Line 1045  Click on Cancel or type \"q\" to quit.\n Line 1047  Click on Cancel or type \"q\" to quit.\n
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    
# Line 1101  default." Line 1102  default."
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" )
# Line 1123  default." Line 1124  default."
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    

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26