procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* ido.el (ido-tidy): Handle read-only text.

Browse source
This commit is contained in:
Leo Liu 2013-10-23 20:15:31 +08:00
parent 48823f4eb4
commit c744a3b9f7
2 changed files with 15 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2013-10-23 Leo Liu <sdl.web@gmail.com>
* ido.el (ido-tidy): Handle read-only text.
2013-10-23 Glenn Morris <rgm@gnu.org>
* Makefile.in (abs_srcdir, abs_lisp): New, set by configure.

23
lisp/ido.el
View file

@ -4707,19 +4707,18 @@ Modified from `icomplete-completions'."
(cancel-timer ido-auto-merge-timer)
(setq ido-auto-merge-timer nil))
(if (ido-active)
(if (and (boundp 'ido-eoinput)
ido-eoinput)
(when (ido-active)
(if (bound-and-true-p ido-eoinput)
(if (> ido-eoinput (point-max))
;; Oops, got rug pulled out from under us - reinit:
(setq ido-eoinput (point-max))
(let ((inhibit-read-only t)
(buffer-undo-list t))
(delete-region ido-eoinput (point-max))))
(if (> ido-eoinput (point-max))
;; Oops, got rug pulled out from under us - reinit:
(setq ido-eoinput (point-max))
(let ((buffer-undo-list t))
(delete-region ido-eoinput (point-max))))
;; Reestablish the local variable 'cause minibuffer-setup is weird:
(make-local-variable 'ido-eoinput)
(setq ido-eoinput 1))))
;; Reestablish the local variable 'cause minibuffer-setup is weird:
(make-local-variable 'ido-eoinput)
(setq ido-eoinput 1))))
(defun ido-summary-buffers-to-end ()
;; Move the summaries to the end of the buffer list.