[Emacs-diffs] Changes to emacs/lisp/ido.el

[Kim F. Storm]

Index: emacs/lisp/ido.el
diff -c emacs/lisp/ido.el:1.20 emacs/lisp/ido.el:1.21
*** emacs/lisp/ido.el:1.20      Mon Jan 13 17:56:53 2003
--- emacs/lisp/ido.el   Mon Jan 13 18:05:13 2003
***************
*** 511,517 ****
    :type 'integer
    :group 'ido)
  
! (defcustom ido-max-prompt-width 0.35
    "*Non-zero means that the prompt string be limited to than number of 
characters.
  If value is a floating point number, it specifies a fraction of the frame 
width."
    :type '(choice
--- 511,517 ----
    :type 'integer
    :group 'ido)
  
! (defcustom ido-max-file-prompt-width 0.35
    "*Non-zero means that the prompt string be limited to than number of 
characters.
  If value is a floating point number, it specifies a fraction of the frame 
width."
    :type '(choice
***************
*** 1395,1403 ****
    (cond
     ((and (memq item '(file dir)) ido-current-directory)
      (let ((dirname (abbreviate-file-name ido-current-directory))
!         (max-width (if (and ido-max-prompt-width (floatp 
ido-max-prompt-width))
!                        (floor (* (frame-width) ido-max-prompt-width))
!                      ido-max-prompt-width))
          (literal (and (boundp 'ido-find-literal) ido-find-literal "(literal) 
"))
          (vc-off (and ido-saved-vc-mt (not vc-master-templates) "[-VC] "))
          (prefix nil)
--- 1395,1403 ----
    (cond
     ((and (memq item '(file dir)) ido-current-directory)
      (let ((dirname (abbreviate-file-name ido-current-directory))
!         (max-width (if (and ido-max-file-prompt-width (floatp 
ido-max-file-prompt-width))
!                        (floor (* (frame-width) ido-max-file-prompt-width))
!                      ido-max-file-prompt-width))
          (literal (and (boundp 'ido-find-literal) ido-find-literal "(literal) 
"))
          (vc-off (and ido-saved-vc-mt (not vc-master-templates) "[-VC] "))
          (prefix nil)