Mercurial > hg > xemacs-beta

comparison lisp/minibuf.el @ 215:1f0dabaa0855 r20-4b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b6
author cvs
date Mon, 13 Aug 2007 10:07:35 +0200
parents 41ff10fd062f
children d44af0c54775
comparison
equal deleted inserted replaced
214:c5d88c05e1e9 215:1f0dabaa0855
283 (defun reset-buffer (buffer) 283 (defun reset-buffer (buffer)
284 (with-current-buffer buffer 284 (with-current-buffer buffer
285 ;(if (fboundp 'unlock-buffer) (unlock-buffer)) 285 ;(if (fboundp 'unlock-buffer) (unlock-buffer))
286 (kill-all-local-variables) 286 (kill-all-local-variables)
287 (setq buffer-read-only nil) 287 (setq buffer-read-only nil)
288 ;; don't let read only text yanked into the minibuffer
289 ;; permanently wedge it.
290 (make-local-variable 'inhibit-read-only)
291 (setq inhibit-read-only t)
288 (erase-buffer) 292 (erase-buffer)
289 ;(setq default-directory nil) 293 ;(setq default-directory nil)
290 (setq buffer-file-name nil) 294 (setq buffer-file-name nil)
291 (setq buffer-file-truename nil) 295 (setq buffer-file-truename nil)
292 (set-buffer-modified-p nil) 296 (set-buffer-modified-p nil)