/[emacs]/emacs/lisp/diff-mode.el
ViewVC logotype

Diff of /emacs/lisp/diff-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.47 by monnier, Thu Sep 12 21:44:23 2002 UTC revision 1.48 by monnier, Fri Sep 13 19:45:36 2002 UTC
# Line 878  a diff with \\[diff-reverse-direction]." Line 878  a diff with \\[diff-reverse-direction]."
878    ;;   (set (make-local-variable 'page-delimiter) "--- [^\t]+\t")    ;;   (set (make-local-variable 'page-delimiter) "--- [^\t]+\t")
879    ;; compile support    ;; compile support
880    
881    ;;;; compile support is not good enough yet.  Also it can be annoying    ;;;; compile support is not good enough yet.  It should be merged
882    ;; and should thus only be enabled conditionally.    ;;;; with diff.el's support.
883    ;; (set (make-local-variable 'compilation-file-regexp-alist)    (set (make-local-variable 'compilation-file-regexp-alist)
884    ;;      diff-file-regexp-alist)         diff-file-regexp-alist)
885    ;; (set (make-local-variable 'compilation-error-regexp-alist)    (set (make-local-variable 'compilation-error-regexp-alist)
886    ;;      diff-error-regexp-alist)         diff-error-regexp-alist)
887    ;; (when (string-match "\\.rej\\'" (or buffer-file-name ""))    (when (string-match "\\.rej\\'" (or buffer-file-name ""))
888    ;;   (set (make-local-variable 'compilation-current-file)      (set (make-local-variable 'compilation-current-file)
889    ;;     (substring buffer-file-name 0 (match-beginning 0))))           (substring buffer-file-name 0 (match-beginning 0))))
890    ;; (compilation-shell-minor-mode 1)    ;; Be careful not to change compilation-last-buffer when we're just
891      ;; doing a C-x v = (for example).
892      (let ((compilation-last-buffer compilation-last-buffer))
893        (compilation-shell-minor-mode 1))
894    
895    (when (and (> (point-max) (point-min)) diff-default-read-only)    (when (and (> (point-max) (point-min)) diff-default-read-only)
896      (toggle-read-only t))      (toggle-read-only t))

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26