瀏覽代碼

guard against `null_pos` in `is_display_file`

Simon Krajewski 9 年之前
父節點
當前提交
e971ea13b8
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      src/display/display.ml

+ 1 - 1
src/display/display.ml

@@ -28,7 +28,7 @@ exception DisplayFields of (string * t * display_field_kind option * documentati
 exception DisplayToplevel of identifier_type list
 
 let is_display_file file =
-	Common.unique_full_path file = (!Parser.resume_display).pfile
+	file <> "?" && Common.unique_full_path file = (!Parser.resume_display).pfile
 
 let encloses_position p_target p =
 	p.pmin <= p_target.pmin && p.pmax >= p_target.pmax