diff lisp/recentf.el @ 49549:99be3a1e2589

Cygwin support patch.

--- a/lisp/recentf.el	Fri Jan 31 15:05:24 2003 +0000
+++ b/lisp/recentf.el	Fri Jan 31 15:24:20 2003 +0000
@@ -156,7 +156,7 @@
 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) 
+  :type '(radio (const nil)
 		(function-item recentf-sort-ascending)
 		(function-item recentf-sort-descending)
 		(function-item recentf-sort-basenames-ascending)
@@ -201,7 +201,7 @@
 ;;;; Common functions
 ;;;;
 (defconst recentf-case-fold-search
-  (memq system-type '(vax-vms windows-nt))
+  (memq system-type '(vax-vms windows-nt cygwin))
   "Non-nil if recentf searches and matches should ignore case.")
 
 (defun recentf-include-p (filename)
@@ -676,7 +676,7 @@
     ;; 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,7 +765,7 @@
                (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,7 +888,7 @@
         (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."