# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1148145987 0
# Node ID c1396ff7810fe8bd91b298a43b1674374d7e19f0
# Parent  c3d4f6eacc0f25d217ec7682c95b501ed00218ea
(show-ifdef-block): Fix bug where parts of a hidden block remained hidden if
`hide-ifdef-lines' is non-nil.

diff -r c3d4f6eacc0f -r c1396ff7810f lisp/progmodes/hideif.el
--- a/lisp/progmodes/hideif.el	Sat May 20 14:40:56 2006 +0000
+++ b/lisp/progmodes/hideif.el	Sat May 20 17:26:27 2006 +0000
@@ -928,15 +928,17 @@
     (setq hide-ifdef-hiding t))
   (setq buffer-read-only (or hide-ifdef-read-only hif-outside-read-only)))
 
-
 (defun show-ifdef-block ()
   "Show the ifdef block (true or false part) enclosing or before the cursor."
   (interactive)
-  (if hide-ifdef-lines
-      (save-excursion
-	(beginning-of-line)
-	(hif-show-ifdef-region (1- (point)) (progn (end-of-line) (point))))
-    (let ((top-bottom (hif-find-ifdef-block)))
+  (let ((top-bottom (hif-find-ifdef-block)))
+    (if hide-ifdef-lines
+ 	(hif-show-ifdef-region
+ 	 (save-excursion
+ 	   (goto-char (car top-bottom)) (line-beginning-position))
+ 	 (save-excursion
+ 	   (goto-char (1+ (cdr top-bottom)))
+	   (hif-end-of-line) (point)))
       (hif-show-ifdef-region (1- (car top-bottom)) (cdr top-bottom)))))