Re: [bojohan+mail@dd.chalmers.se: Partial completion]

[martin rudalics <rudalics@gmx.at>]

[-- Attachment #1: Type: text/plain, Size: 556 bytes --]

 > Now (try-completion "" '(("") (""))) returns t.
 > Previously it returned "".

I attached a patch for the offending occurrence of `try-completion'.
Please test it.  There are two more occurrences that should be checked
though.  And there's an additional problem: When, in *scratch*, I type

(defma )

do M-x PC-lisp-complete-symbol and choose say `defmath', the _entire_
contents of the buffer preceding defma are erased.  I think this is due
to the fact that complete.el doesn't set `completion-base-size'
appropriately.  Should this be corrected too?

[-- Attachment #2: complete.diff --]
[-- Type: text/plain, Size: 1645 bytes --]

*** complete.el	Tue Jan 23 07:40:00 2007
--- complete.el	Sat Feb 24 14:26:14 2007
***************
*** 661,679 ****
  				(looking-at PC-delim-regex))
  			      (setq skip (concat skip
  						 (regexp-quote prefix)
! 						 PC-ndelims-regex)
! 				    prefix (try-completion
! 					    (PC-chunk-after
! 					     ;; not basestr, because that does
! 					     ;; not reflect insertions
! 					     (buffer-substring
! 					      (+ beg (length dirname)) end)
! 					     skip)
! 					    (mapcar
!                                              (lambda (x)
!                                                (when (string-match skip x)
!                                                  (substring x (match-end 0))))
! 					     poss)))
  			      (or (> i 0) (> (length prefix) 0))
  			      (or (not (eq mode 'word))
  				  (and first (> (length prefix) 0)
--- 661,683 ----
  				(looking-at PC-delim-regex))
  			      (setq skip (concat skip
  						 (regexp-quote prefix)
! 						 PC-ndelims-regex))
! 			      (let ((chunk
! 				     (PC-chunk-after
! 				      ;; not basestr, because that does
! 				      ;; not reflect insertions
! 				      (buffer-substring-no-properties
! 				       (+ beg (length dirname)) end)
! 				      skip)))
! 				(setq prefix (try-completion
! 					      chunk
! 					      (mapcar
! 					       (lambda (x)
! 						 (when (string-match skip x)
! 						   (substring x (match-end 0))))
! 					       poss)))
! 				(or (stringp prefix)
! 				    (setq prefix (if prefix chunk ""))))
  			      (or (> i 0) (> (length prefix) 0))
  			      (or (not (eq mode 'word))
  				  (and first (> (length prefix) 0)

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel