diff options
Diffstat (limited to 'lisp/progmodes/hideif.el')
| -rw-r--r-- | lisp/progmodes/hideif.el | 14 |
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 | ||