changeset 94375:f8b940834bbb

(completion-pcm-word-delimiters): Add :group. (completion-pcm--all-completions): Doc fix. (completion-styles-alist, completion-all-completions): Fix typos in docstrings.

--- a/lisp/minibuffer.el	Sat Apr 26 12:38:54 2008 +0000
+++ b/lisp/minibuffer.el	Sat Apr 26 12:58:13 2008 +0000
@@ -258,7 +258,7 @@
      completion-pcm-try-completion completion-pcm-all-completions))
   "List of available completion styles.
 Each element has the form (NAME TRY-COMPLETION ALL-COMPLETIONS)
-where NAME is the name that should be used in `completion-styles'
+where NAME is the name that should be used in `completion-styles',
 TRY-COMPLETION is the function that does the completion, and
 ALL-COMPLETIONS is the function that lists the completions.")
 
@@ -295,7 +295,7 @@
   "List the possible completions of STRING in completion table TABLE.
 Only the elements of table that satisfy predicate PRED are considered.
 POINT is the position of point within STRING.
-The return value is a list of completions and may contain the BASE-SIZE
+The return value is a list of completions and may contain the base-size
 in the last `cdr'."
   ;; The property `completion-styles' indicates that this functional
   ;; completion-table claims to take care of completion styles itself.
@@ -1072,6 +1072,7 @@
          ;; Refresh other vars.
          (completion-pcm--prepare-delim-re value))
   :initialize 'custom-initialize-reset
+  :group 'minibuffer
   :type 'string)
 
 (defun completion-pcm--pattern-trivial-p (pattern)
@@ -1090,7 +1091,7 @@
     (let ((pattern nil)
           (p 0)
           (p0 0))
-    
+
       (while (setq p (string-match completion-pcm--delim-wild-regex basestr p))
         (push (substring basestr p0 p) pattern)
         (if (eq (aref basestr p) ?*)
@@ -1117,13 +1118,13 @@
 
 (defun completion-pcm--all-completions (pattern table pred)
   "Find all completions for PATTERN in TABLE obeying PRED.
-PATTERN is as returned by `complete-string->pattern'."
+PATTERN is as returned by `completion-pcm--string->pattern'."
   ;; Find an initial list of possible completions.
   (if (completion-pcm--pattern-trivial-p pattern)
 
       ;; Minibuffer contains no delimiters -- simple case!
       (all-completions (car pattern) table pred)
-	
+
     ;; Use all-completions to do an initial cull.  This is a big win,
     ;; since all-completions is written in C!
     (let* (;; Convert search pattern to a standard regular expression.
@@ -1218,8 +1219,6 @@
              ;; Do it afterwards because it changes `pointpat' by sideeffect.
              (merged (completion-pcm--pattern->string (nreverse mergedpat))))
         (cons merged (- (length merged) newpos))))))
-              
-        
 
 
 (provide 'minibuffer)