Fixes: debbugs:18940

* vc/vc-hg.el (vc-hg-state): Disable pager.

lisp/ChangeLog

+2014-11-13  Michael Albinus  <michael.albinus@gmx.de>
+
+	* vc/vc-hg.el (vc-hg-state): Disable pager.  (Bug#18940)
+
 2014-11-10  Kenjiro NAKAYAMA  <nakayamakenjiro@gmail.com>
 
         * net/eww.el(eww-form-file(defface)): New defface of file upload form.

lisp/vc/vc-hg.el

@@ -207,14 +207,22 @@ highlighting the Log View buffer."
                       ;; Ignore all errors.
 		      (let ((process-environment
 			     ;; Avoid localization of messages so we
-			     ;; can parse the output.
-			     (append (list "TERM=dumb" "LANGUAGE=C")
-				     process-environment)))
-			(process-file
-			 vc-hg-program nil t nil
-			 "--config" "alias.status=status"
-			 "--config" "defaults.status="
-			 "status" "-A" (file-relative-name file)))
+			     ;; can parse the output.  Disable pager.
+			     (append
+			      (list "TERM=dumb" "LANGUAGE=C" "HGPLAIN=1")
+			      process-environment)))
+			(if (file-remote-p file)
+			    (process-file
+			     "env" nil t nil
+			     "HGPLAIN=1" vc-hg-program
+			     "--config" "alias.status=status"
+			     "--config" "defaults.status="
+			     "status" "-A" (file-relative-name file))
+			  (process-file
+			   vc-hg-program nil t nil
+			   "--config" "alias.status=status"
+			   "--config" "defaults.status="
+			   "status" "-A" (file-relative-name file))))
                     ;; Some problem happened.  E.g. We can't find an `hg'
                     ;; executable.
                     (error nil)))))))