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

[Juanma Barranquero]

Index: emacs/lisp/recentf.el
diff -c emacs/lisp/recentf.el:1.21 emacs/lisp/recentf.el:1.22
*** emacs/lisp/recentf.el:1.21  Mon Apr 29 05:27:25 2002
--- emacs/lisp/recentf.el       Fri Jan 31 10:17:55 2003
***************
*** 156,162 ****
  used to build the menu and must return a new list of menu elements (see
  `recentf-make-menu-element' for menu element form)."
    :group 'recentf
!   :type '(radio (const nil) 
                (function-item recentf-sort-ascending)
                (function-item recentf-sort-descending)
                (function-item recentf-sort-basenames-ascending)
--- 156,162 ----
  used to build the menu and must return a new list of menu elements (see
  `recentf-make-menu-element' for menu element form)."
    :group 'recentf
!   :type '(radio (const nil)
                (function-item recentf-sort-ascending)
                (function-item recentf-sort-descending)
                (function-item recentf-sort-basenames-ascending)
***************
*** 201,207 ****
  ;;;; Common functions
  ;;;;
  (defconst recentf-case-fold-search
!   (memq system-type '(vax-vms windows-nt))
    "Non-nil if recentf searches and matches should ignore case.")
  
  (defun recentf-include-p (filename)
--- 201,207 ----
  ;;;; Common functions
  ;;;;
  (defconst recentf-case-fold-search
!   (memq system-type '(vax-vms windows-nt cygwin))
    "Non-nil if recentf searches and matches should ignore case.")
  
  (defun recentf-include-p (filename)
***************
*** 676,682 ****
      ;; It is important to preserve auto-mode-alist order
      ;; to ensure the right file <-> mode association
      (nreverse rules)))
!          
  (defun recentf-arrange-by-mode (l)
    "Filter the list of menu-elements L to build sub-menus for each major mode."
    (let ((recentf-arrange-rules (recentf-build-mode-rules))
--- 676,682 ----
      ;; It is important to preserve auto-mode-alist order
      ;; to ensure the right file <-> mode association
      (nreverse rules)))
! 
  (defun recentf-arrange-by-mode (l)
    "Filter the list of menu-elements L to build sub-menus for each major mode."
    (let ((recentf-arrange-rules (recentf-build-mode-rules))
***************
*** 765,771 ****
                 (setq filters (cdr filters)))))
      (if (consp filters)
          (car filters))))
!         
  (defun recentf-filter-changer (l)
    "Manage a ring of filters.
  `recentf-filter-changer-alist' defines the filters in the ring.
--- 765,771 ----
                 (setq filters (cdr filters)))))
      (if (consp filters)
          (car filters))))
! 
  (defun recentf-filter-changer (l)
    "Manage a ring of filters.
  `recentf-filter-changer-alist' defines the filters in the ring.
***************
*** 888,894 ****
          (setq recentf-edit-selected-items
                (nconc (list value) recentf-edit-selected-items))
          (message "%s added to selection." value)))))
!   
  ;;;###autoload
  (defun recentf-edit-list ()
    "Allow the user to edit the files that are kept in the recent list."
--- 888,894 ----
          (setq recentf-edit-selected-items
                (nconc (list value) recentf-edit-selected-items))
          (message "%s added to selection." value)))))
! 
  ;;;###autoload
  (defun recentf-edit-list ()
    "Allow the user to edit the files that are kept in the recent list."