Changeset 19179 for lang/elisp

Timestamp:

09/11/08 17:15:52 (2 months ago)

Author:

imakado

Message:

manページの候補にインストールされているモジュールも含めるように変更

Files:

• lang/elisp/perl-completion/branch/1.0/perl-completion.el (modified) (5 diffs)

lang/elisp/perl-completion/branch/1.0/perl-completion.el

@@ -202 +202 @@
 
 (defvar plcmp-initial-input "")
-(defvar plcmp-real-initial-input "")
+(defvar plcmp-real-initial-input "real initial-input if required `anything-match-plugin' initial-input is not real initial-input")
 (defun plcmp-get-initial-input ()
   (let ((initial-input (buffer-substring-no-properties
@@ -236 +236 @@
                    (string-match "No such file or directory$" module))
                  modules))))
-  
+
 ;;; current package
 (defvar plcmp-current-package-name "")
@@ -495 +495 @@
                        woman-topic-all-completions))))
         (remove-if-not (lambda (s)
-                         (string-match "perl" s))
+                         (or (member s plcmp-installed-modules)
+                             (string-match "perl" s)))
                        pages))
     (error nil)))
@@ -830 +831 @@
 
 
+;;;; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+;;;; Test
+;;;; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
 (dont-compile
   (when (fboundp 'expectations)
@@ -838 +843 @@
          '(define-plcmp-command test (arg1 arg2)
             "test")))
-      (desc "plcmp-insert-each-line call with nil")
-      (expect nil
-        (plcmp-insert-each-line nil))
       (desc "plcmp-get-face-words")
       (expect nil