Mercurial > emacs

changeset 105705:7aba6ca5f3d1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pcomplete/kill): Don't abuse pcomplete-entries. (pcmpl-linux-fs-types): Same, and update to new modules layout.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 22 Oct 2009 03:35:11 +0000
parents 4d03be3df4fe
children 697110244863
files lisp/ChangeLog lisp/pcmpl-linux.el
diffstat 2 files changed, 6 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu Oct 22 03:25:54 2009 +0000
+++ b/lisp/ChangeLog	Thu Oct 22 03:35:11 2009 +0000
@@ -1,5 +1,8 @@
 2009-10-22  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* pcmpl-linux.el (pcomplete/kill): Don't abuse pcomplete-entries.
+	(pcmpl-linux-fs-types): Same, and update to new modules layout.
+
 	* pcmpl-gnu.el (pcmpl-gnu-makefile-names): Use a single call to
 	pcomplete-entries.
 
--- a/lisp/pcmpl-linux.el	Thu Oct 22 03:25:54 2009 +0000
+++ b/lisp/pcmpl-linux.el	Thu Oct 22 03:35:11 2009 +0000
@@ -47,9 +47,7 @@
        (pcomplete-match-string 1 0)))
   (while (pcomplete-here
 	  (if (file-directory-p "/proc")
-	      (let ((default-directory "/proc/"))
-		(mapcar 'directory-file-name
-			(pcomplete-entries "[0-9]+/$"))))
+              (directory-files "/proc" nil "\\`[0-9]+\\'"))
 	  nil 'identity)))
 
 ;;;###autoload
@@ -68,13 +66,8 @@
 (defun pcmpl-linux-fs-types ()
   "Return a list of available fs modules on GNU/Linux systems."
   (let ((kernel-ver (pcomplete-process-result "uname" "-r")))
-    (mapcar
-     (function
-      (lambda (fsobj)
-	(substring fsobj 0 (- (length fsobj) 2))))
-     (let ((default-directory
-	     (concat "/lib/modules/" kernel-ver "/fs/")))
-       (pcomplete-entries "\\.o$")))))
+    (directory-files
+     (concat "/lib/modules/" kernel-ver "/kernel/fs/"))))
 
 (defun pcmpl-linux-mounted-directories ()
   "Return a list of mounted directory names."