diff options
| author | courtieu | 2012-11-15 13:03:16 +0000 |
|---|---|---|
| committer | courtieu | 2012-11-15 13:03:16 +0000 |
| commit | 86b4195557d08055da97d292325fcdee333acea8 (patch) | |
| tree | 9f379faf6893f60970326b9d777030e77ae313d3 | |
| parent | e68a6d04a38cb601a0af8fbe3f7d2db291ea3d0b (diff) | |
Fixing emacs diff bug with .dir-locals.el.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15974 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | .dir-locals.el | 6 | ||||
| -rw-r--r-- | parsing/egramcoq.ml | 2 | ||||
| -rw-r--r-- | toplevel/toplevel.ml | 2 |
3 files changed, 6 insertions, 4 deletions
diff --git a/.dir-locals.el b/.dir-locals.el index 092973c39c..0b8d726888 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -4,8 +4,10 @@ . ((eval . (progn ;; coq root directory (ending with slash) - (let ((coq-root-directory (locate-dominating-file buffer-file-name - ".dir-locals.el")) + (let ((coq-root-directory (when buffer-file-name + (locate-dominating-file + buffer-file-name + ".dir-locals.el"))) (coq-project-find-file (and (boundp 'coq-project-find-file) coq-project-find-file))) ;; coq tags file and coq debugger executable diff --git a/parsing/egramcoq.ml b/parsing/egramcoq.ml index dd32c99ba7..0dc83c4c08 100644 --- a/parsing/egramcoq.ml +++ b/parsing/egramcoq.ml @@ -19,7 +19,7 @@ open Tacexpr open Names open Egramml -(**************************************************************************) + (**************************************************************************) (* * --- Note on the mapping of grammar productions to camlp4 actions --- * diff --git a/toplevel/toplevel.ml b/toplevel/toplevel.ml index 175a95165d..01cc8834bc 100644 --- a/toplevel/toplevel.ml +++ b/toplevel/toplevel.ml @@ -22,7 +22,7 @@ type input_buffer = { mutable len : int; (* number of chars in the buffer *) mutable bols : int list; (* offsets in str of begining of lines *) mutable tokens : Gram.parsable; (* stream of tokens *) - mutable start : int } (* stream count of the first char of the buffer *) + mutable start : in } (* stream count of the first char of the buffer *) (* Double the size of the buffer. *) |
