Mercurial > hg > xemacs-beta

comparison lisp/packages/saveconf.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
267 (goto-char (read context-buffer))) 267 (goto-char (read context-buffer)))
268 ;; 268 ;;
269 ;; Recover buffer contexts, if any. 269 ;; Recover buffer contexts, if any.
270 ;; 270 ;;
271 (while (setq sexpr (read context-buffer)) 271 (while (setq sexpr (read context-buffer))
272 (set-buffer (find-file-noselect sexpr)) 272 (set-buffer (find-file-noselect sexpr t))
273 (goto-char (read context-buffer))) 273 (if (zerop (buffer-size))
274 (kill-buffer (current-buffer))
275 (goto-char (read context-buffer))))
274 (bury-buffer "*scratch*") 276 (bury-buffer "*scratch*")
275 (kill-buffer context-buffer) 277 (kill-buffer context-buffer)
276 t ) 278 t )
277 (error nil))) 279 (error nil)))
278 280