Lines Matching +defs:old +defs:buffer
147 ;; font-lock-fontify-buffer handles multi-line patterns correctly,
148 ;; updating when you edit the buffer does not, since it considers
269 (defvar old-buffer nil)
276 (save-buffer nil)
277 (setq old-buffer (current-buffer))
279 (dol-hets-file-name (buffer-file-name))
280 (outbuf (get-buffer-create "*hets-run*")))
289 ;; Pop up the compilation buffer.
290 (set-buffer outbuf)
291 (setq buffer-read-only nil)
292 (buffer-disable-undo (current-buffer))
293 (erase-buffer)
294 (buffer-enable-undo (current-buffer))
295 (set-buffer-modified-p nil)
297 (pop-to-buffer outbuf)
299 ;; (display-buffer outbuf nil t)
301 ;; (set-buffer outbuf)
321 (setq buffer-read-only nil)
327 (pop-to-buffer old-buffer)))
357 (let ((buffer (process-buffer proc)))
360 (if (null (buffer-name buffer))
361 ;; buffer killed
362 (set-process-buffer proc nil)
363 (let ((obuf (current-buffer)))
365 ;; process-buffer is current-buffer
368 ;; Write something in the compilation buffer
370 (set-buffer buffer)
374 ;; Since the buffer and mode line will show that the
378 (set-buffer obuf))))
382 ;; show the message from hets compile direct on *hets-run* buffer
384 (display-buffer (process-buffer proc))
385 (unless (equal (buffer-name) "*hets-run*")
387 (pop-to-buffer "*hets-run*")
390 (with-current-buffer (process-buffer proc)
399 (pop-to-buffer old-buffer))
402 "Write msg in the current buffer and hack its mode-line-process."
403 (let ((buffer-read-only nil)
428 (pop-to-buffer old-buffer)
431 ;; also functions with old hets-program?
436 ;;;(pop-to-buffer compiler-buffer)
437 (pop-to-buffer "*hets-run*")
464 (if (member (get-buffer "*hets-run*") (buffer-list))
475 (if (get-file-buffer error-file-name)
476 (pop-to-buffer (get-file-buffer error-file-name))
477 (generate-new-buffer error-file-name)
478 (pop-to-buffer error-file-name)
481 (setq file-buffer (current-buffer))
482 (pop-to-buffer "*hets-run*")
485 (pop-to-buffer file-buffer)