[Emacs-diffs] Changes to emacs/lisp/recentf.el

[Lute Kamstra]

Index: emacs/lisp/recentf.el
diff -c emacs/lisp/recentf.el:1.37 emacs/lisp/recentf.el:1.38
*** emacs/lisp/recentf.el:1.37  Tue May 31 04:19:10 2005
--- emacs/lisp/recentf.el       Tue Jun 14 12:02:42 2005
***************
*** 923,931 ****
  
  \\{recentf-dialog-mode-map}"
    (interactive)
    (setq major-mode 'recentf-dialog-mode)
    (setq mode-name "recentf-dialog")
!   (use-local-map recentf-dialog-mode-map))
  
  ;;; Hooks
  ;;
--- 923,933 ----
  
  \\{recentf-dialog-mode-map}"
    (interactive)
+   (kill-all-local-variables)
    (setq major-mode 'recentf-dialog-mode)
    (setq mode-name "recentf-dialog")
!   (use-local-map recentf-dialog-mode-map)
!   (run-mode-hooks 'recentf-dialog-mode-hook))
  
  ;;; Hooks
  ;;
***************
*** 1002,1014 ****
        (get-buffer-create (format "*%s - Edit list*" recentf-menu-title))
      (switch-to-buffer (current-buffer))
      ;; Cleanup buffer
-     (kill-all-local-variables)
      (let ((inhibit-read-only t)
            (ol (overlay-lists)))
        (erase-buffer)
        ;; Delete all the overlays.
        (mapc 'delete-overlay (car ol))
        (mapc 'delete-overlay (cdr ol)))
      (setq recentf-edit-selected-items nil)
      ;; Insert the dialog header
      (widget-insert
--- 1004,1016 ----
        (get-buffer-create (format "*%s - Edit list*" recentf-menu-title))
      (switch-to-buffer (current-buffer))
      ;; Cleanup buffer
      (let ((inhibit-read-only t)
            (ol (overlay-lists)))
        (erase-buffer)
        ;; Delete all the overlays.
        (mapc 'delete-overlay (car ol))
        (mapc 'delete-overlay (cdr ol)))
+     (recentf-dialog-mode)
      (setq recentf-edit-selected-items nil)
      ;; Insert the dialog header
      (widget-insert
***************
*** 1045,1051 ****
       'push-button
       :notify 'recentf-cancel-dialog
       "Cancel")
-     (recentf-dialog-mode)
      (widget-setup)
      (goto-char (point-min))))
  
--- 1047,1052 ----
***************
*** 1101,1113 ****
    (with-current-buffer (get-buffer-create buffer-name)
      (switch-to-buffer (current-buffer))
      ;; Cleanup buffer
-     (kill-all-local-variables)
      (let ((inhibit-read-only t)
            (ol (overlay-lists)))
        (erase-buffer)
        ;; Delete all the overlays.
        (mapc 'delete-overlay (car ol))
        (mapc 'delete-overlay (cdr ol)))
      ;; Insert the dialog header
      (widget-insert "Click on a file to open it. ")
      (widget-insert "Click on Cancel or type \"q\" to quit.\n\n" )
--- 1102,1114 ----
    (with-current-buffer (get-buffer-create buffer-name)
      (switch-to-buffer (current-buffer))
      ;; Cleanup buffer
      (let ((inhibit-read-only t)
            (ol (overlay-lists)))
        (erase-buffer)
        ;; Delete all the overlays.
        (mapc 'delete-overlay (car ol))
        (mapc 'delete-overlay (cdr ol)))
+     (recentf-dialog-mode)
      ;; Insert the dialog header
      (widget-insert "Click on a file to open it. ")
      (widget-insert "Click on Cancel or type \"q\" to quit.\n\n" )
***************
*** 1123,1129 ****
       'push-button
       :notify 'recentf-cancel-dialog
       "Cancel")
-     (recentf-dialog-mode)
      (widget-setup)
      (goto-char (point-min))))
  
--- 1124,1129 ----