Mercurial > emacs

comparison lisp/progmodes/compile.el @ 8976:2ddf9526b8b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix indentation.
author Richard M. Stallman <rms@gnu.org>
date Wed, 21 Sep 1994 19:05:52 +0000
parents 6ca3e0d3b7ca
children f0ac347309e2
comparison
equal deleted inserted replaced
8975:e8a4c71251cb 8976:2ddf9526b8b8
1086 (w (display-buffer (marker-buffer marker)))) 1086 (w (display-buffer (marker-buffer marker))))
1087 (set-window-point w marker) 1087 (set-window-point w marker)
1088 (set-window-start w marker)) 1088 (set-window-start w marker))
1089 (setq name 1089 (setq name
1090 (expand-file-name 1090 (expand-file-name
1091 (read-file-name 1091 (read-file-name (format "Find this error in: (default %s) "
1092 (format "Find this error in: (default %s) " 1092 filename)
1093 filename) dir filename t))) 1093 dir filename t)))
1094 (if (file-directory-p name) 1094 (if (file-directory-p name)
1095 (setq name (concat (file-name-as-directory name) filename))) 1095 (setq name (concat (file-name-as-directory name) filename)))
1096 (if (file-exists-p name) 1096 (if (file-exists-p name)
1097 (find-file-noselect name)))))) 1097 (find-file-noselect name))))))
1098 1098