comparison lisp/obsolete/complete.el @ 108774:895ee2ff8cc3

Merge from mainline.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Tue, 25 May 2010 07:23:37 +0000
parents bf9a29f59be6 d835100c3e8b
children
comparison
equal deleted inserted replaced
108758:2903660f846b 108774:895ee2ff8cc3
697 ;; No valid completions found 697 ;; No valid completions found
698 ((null poss) 698 ((null poss)
699 (if (and (eq mode 'word) 699 (if (and (eq mode 'word)
700 (not PC-word-failed-flag)) 700 (not PC-word-failed-flag))
701 (let ((PC-word-failed-flag t)) 701 (let ((PC-word-failed-flag t))
702 (delete-backward-char 1) 702 (delete-char -1)
703 (PC-do-completion 'word)) 703 (PC-do-completion 'word))
704 (when abbreviated 704 (when abbreviated
705 (delete-region beg end) 705 (delete-region beg end)
706 (insert origstr)) 706 (insert origstr))
707 (beep) 707 (beep)