Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Made a better interface for enabling and disabling the new completion…
… behavior.
  • Loading branch information
smithzvk committed Oct 1, 2011
1 parent be55221 commit d38eb14
Showing 1 changed file with 10 additions and 1 deletion.
11 changes: 10 additions & 1 deletion nice-completion.el
Expand Up @@ -34,7 +34,6 @@
(setf new-window-start (point)) )
(set-window-start (selected-window) new-window-start) ))

(add-to-list 'special-display-buffer-names '("*Completions*" my-display-completions))

(defun my-display-completions (buf)
"If we find that there is already a visible *Completions*
Expand Down Expand Up @@ -93,4 +92,14 @@ it would have done without my intervention."
special-display-buffer-names )))
(display-buffer "*Completions*" t) )))))

(defun enable-fixed-point-completions ()
(add-to-list 'special-display-buffer-names
'("*Completions*" fixed-point-display-completions) ))

(defun disable-fixed-point-completions ()
(setf special-display-buffer-names
(remove-if (lambda (x) (and (equal "*Completions*" (first x))
(eql 'fixed-point-display-completions
(second x) ))))))


0 comments on commit d38eb14

Please sign in to comment.