`ido.el' improvement

`ido.el' improvement

[Paul Pogonyshev]

Hi.

Will you mind this change (basically explained in
`defcustom's comment)?  Note that it doesn't change
`ido's default behaviour and so must be acceptable
even now.  It is also very simple.

Paul


2004-09-11  Paul Pogonyshev  <pogonyshev@gmx.net>

	* ido.el (ido-match-leading-dot): New defcustom.
	(ido-set-matches1): Add handling of `ido-match-leading-dot'
	option.


*** ido.el	22 Aug 2004 08:58:16 -0200	1.40
--- ido.el	11 Sep 2004 20:12:40 -0200	
***************
*** 490,495 ****
--- 490,503 ----
    :type 'boolean
    :group 'ido)
  
+ (defcustom ido-match-leading-dot nil
+   "*Non-nil means that `ido' will match leading dot as prefix
+ even if the rest of text is matched as substring.  I.e. hidden
+ files and corresponding buffers will match only if you type a dot
+ first."
+   :type 'boolean
+   :group 'ido)
+ 
  (defcustom ido-confirm-unique-completion nil
    "*Non-nil means that even a unique completion must be confirmed.
  This means that \\[ido-complete] must always be followed by \\[ido-exit-minibuffer]
***************
*** 2928,2940 ****
  		       (concat "\\`" re "\\'")))
  	 (prefix-re (and full-re (not ido-enable-prefix)
  			 (concat "\\`" rexq)))
  	 full-matches
  	 prefix-matches
  	 matches)
      (mapcar
       (lambda (item)
         (let ((name (ido-name item)))
! 	 (if (string-match re name)
  	     (cond
  	      ((and full-re (string-match full-re name))
  	       (setq full-matches (cons item full-matches)))
--- 2936,2954 ----
  		       (concat "\\`" re "\\'")))
  	 (prefix-re (and full-re (not ido-enable-prefix)
  			 (concat "\\`" rexq)))
+ 	 (dont-match-leading-dot (or (not ido-match-leading-dot)
+ 				     ido-enable-prefix
+ 				     (= (length ido-text) 0)))
  	 full-matches
  	 prefix-matches
  	 matches)
      (mapcar
       (lambda (item)
         (let ((name (ido-name item)))
! 	 (if (and (or dont-match-leading-dot
! 		      (funcall (if (= (aref ido-text 0) ?.) '= '/=)
! 			       (aref name 0) ?.))
! 		  (string-match re name))
  	     (cond
  	      ((and full-re (string-match full-re name))
  	       (setq full-matches (cons item full-matches)))

Re: `ido.el' improvement

[Richard Stallman]

    + (defcustom ido-match-leading-dot nil
    +   "*Non-nil means that `ido' will match leading dot as prefix
    + even if the rest of text is matched as substring.  I.e. hidden

Please keep in mind that the first line of a doc string
is supposed to stand on its own.

Re: `ido.el' improvement

[Kim F. Storm]

Richard Stallman <rms@gnu.org> writes:

>     + (defcustom ido-match-leading-dot nil
>     +   "*Non-nil means that `ido' will match leading dot as prefix
>     + even if the rest of text is matched as substring.  I.e. hidden
>
> Please keep in mind that the first line of a doc string
> is supposed to stand on its own.

I fixed that before installing the change (slightly modified).

-- 
Kim F. Storm <storm@cua.dk> http://www.cua.dk

Re: `ido.el' improvement

[Paul Pogonyshev]

>     + (defcustom ido-match-leading-dot nil
>     +   "*Non-nil means that `ido' will match leading dot as prefix
>     + even if the rest of text is matched as substring.  I.e. hidden
>
> Please keep in mind that the first line of a doc string
> is supposed to stand on its own.

OK, I will.  Anyway, this was replaced with another
(similar) patch.

Paul