소스 검색

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