Mercurial > emacs

comparison lisp/progmodes/compile.el @ 29121:acb056d2e9d9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compile-internal): Style typo.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 23 May 2000 20:14:43 +0000
parents 2e20146198ce
children f0a91dd9685b
comparison
equal deleted inserted replaced
29120:64ad20494e87 29121:acb056d2e9d9
785 (list command error-message 785 (list command error-message
786 name-of-mode parser 786 name-of-mode parser
787 error-regexp-alist name-function 787 error-regexp-alist name-function
788 enter-regexp-alist leave-regexp-alist 788 enter-regexp-alist leave-regexp-alist
789 file-regexp-alist nomessage-regexp-alist)) 789 file-regexp-alist nomessage-regexp-alist))
790 (make-local-variable 'lazy-lock-defer-on-scrolling)
791 ;; This proves a good idea if the buffer's going to scroll 790 ;; This proves a good idea if the buffer's going to scroll
792 ;; with lazy-lock on. 791 ;; with lazy-lock on.
793 (setq lazy-lock-defer-on-scrolling t) 792 (set (make-local-variable 'lazy-lock-defer-on-scrolling) t)
794 (setq default-directory thisdir 793 (setq default-directory thisdir
795 compilation-directory-stack (list default-directory)) 794 compilation-directory-stack (list default-directory))
796 (set-window-start outwin (point-min)) 795 (set-window-start outwin (point-min))
797 (or (eq outwin (selected-window)) 796 (or (eq outwin (selected-window))
798 (set-window-point outwin (point-min))) 797 (set-window-point outwin (point-min)))