aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes/hideif.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/progmodes/hideif.el')
-rw-r--r--lisp/progmodes/hideif.el14
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el
index 04e44e2dac1..a100424108d 100644
--- a/lisp/progmodes/hideif.el
+++ b/lisp/progmodes/hideif.el
@@ -928,15 +928,17 @@ Return as (TOP . BOTTOM) the extent of ifdef block."
928 (setq hide-ifdef-hiding t)) 928 (setq hide-ifdef-hiding t))
929 (setq buffer-read-only (or hide-ifdef-read-only hif-outside-read-only))) 929 (setq buffer-read-only (or hide-ifdef-read-only hif-outside-read-only)))
930 930
931
932(defun show-ifdef-block () 931(defun show-ifdef-block ()
933 "Show the ifdef block (true or false part) enclosing or before the cursor." 932 "Show the ifdef block (true or false part) enclosing or before the cursor."
934 (interactive) 933 (interactive)
935 (if hide-ifdef-lines 934 (let ((top-bottom (hif-find-ifdef-block)))
936 (save-excursion 935 (if hide-ifdef-lines
937 (beginning-of-line) 936 (hif-show-ifdef-region
938 (hif-show-ifdef-region (1- (point)) (progn (end-of-line) (point)))) 937 (save-excursion
939 (let ((top-bottom (hif-find-ifdef-block))) 938 (goto-char (car top-bottom)) (line-beginning-position))
939 (save-excursion
940 (goto-char (1+ (cdr top-bottom)))
941 (hif-end-of-line) (point)))
940 (hif-show-ifdef-region (1- (car top-bottom)) (cdr top-bottom))))) 942 (hif-show-ifdef-region (1- (car top-bottom)) (cdr top-bottom)))))
941 943
942 944