*** hideif.el	Sat Nov  5 19:46:04 2005
--- hideif.el	Sat May 13 11:38:20 2006
***************
*** 921,945 ****
    (interactive)
    (unless hide-ifdef-mode (hide-ifdef-mode 1))
    (let ((top-bottom (hif-find-ifdef-block)))
!     (hide-ifdef-region (car top-bottom) (cdr top-bottom))
!     (when hide-ifdef-lines
!       (hif-hide-line (car top-bottom))
!       (hif-hide-line (1+ (cdr top-bottom))))
      (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)))
        (hif-show-ifdef-region (1- (car top-bottom)) (cdr top-bottom)))))

- 
  ;;;  definition alist support

  (defvar hide-ifdef-define-alist nil
--- 921,948 ----
    (interactive)
    (unless hide-ifdef-mode (hide-ifdef-mode 1))
    (let ((top-bottom (hif-find-ifdef-block)))
!     (if hide-ifdef-lines
! 	(hide-ifdef-region-internal
! 	 (save-excursion
! 	   (goto-char (car top-bottom)) (line-beginning-position))
! 	 (save-excursion
! 	   (goto-char (cdr top-bottom)) (line-end-position 2)))
!       (hide-ifdef-region (car top-bottom) (cdr top-bottom)))
      (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)
!   (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 (cdr top-bottom)) (line-end-position 2)))
        (hif-show-ifdef-region (1- (car top-bottom)) (cdr top-bottom)))))

  ;;;  definition alist support

  (defvar hide-ifdef-define-alist nil