«Тупой» автокомплит в emacs

C-x 1?:) А вообще ИМХО лучше юзать M-/, а не C-M-/ так и окна никакого выскакивать не будет.

А как сделать дописывание слова(при однозначности варанта дополнения) при M-/?

(defun indent-or-complete () ;; "Complete if point is at end of a word, otherwise indent line." ;;{{{

(interactive) (if (and (not (bolp)) (string-match "\\sw\\|\\s_" (char-to-string (char-before))) (or (eobp) (looking-at "[ \t\n]"))) (progn (when (eobp) (insert "\n") (goto-char (1- (point)))) (dabbrev-expand nil)) (if (and (bolp) (not (eolp))) (progn (indent-for-tab-command) (beginning-of-line)) (indent-for-tab-command))))

;;}}}

(global-set-key [tab] 'indent-or-complete)

(defun indent-or-complete ()
;;
"Complete if point is at end of a word, otherwise indent line."
;;{{{

(interactive)
(if (and (not (bolp))
(string-match "\\sw\\|\\s_" (char-to-string (char-before)))
(or (eobp)
(looking-at "[ \t\n]")))
(progn
(when (eobp)
(insert "\n")
(goto-char (1- (point))))
(dabbrev-expand nil))
(if (and (bolp) (not (eolp)))
(progn
(indent-for-tab-command)
(beginning-of-line))
(indent-for-tab-command))))

;;}}}


(global-set-key [tab] 'indent-or-complete)

Не работает дополнение имени каталога при C-X C-F:
Пишешь folder-(чтобы дополнить до folder-1)Tab, и:
'No dynamic expansion for /folder- found.'