diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2016-01-16 09:55:00 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2016-01-16 09:55:00 +0200 |
| commit | 39afa422ad0b3cef00292e260d424b7cd589b90d (patch) | |
| tree | c6f31d28c02f41bf419970d178dfe0b37c901937 /lisp/progmodes/hideif.el | |
| parent | 05df6662ef229fdbaa2b6f4430f39f95eaa7a65a (diff) | |
| download | emacs-39afa422ad0b3cef00292e260d424b7cd589b90d.tar.gz | |
Fix tests for active region in hideif.el
* lisp/progmodes/hideif.el (hif-evaluate-macro, hide-ifdef-block): Use
'use-region-p' to test whether to operate on region, instead of
testing 'mark-active'.
Diffstat (limited to 'lisp/progmodes/hideif.el')
| -rw-r--r-- | lisp/progmodes/hideif.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el index a75a322b335..8a87eb9770a 100644 --- a/lisp/progmodes/hideif.el +++ b/lisp/progmodes/hideif.el @@ -1591,7 +1591,7 @@ not be expanded." '(nil nil))) (let ((case-fold-search nil)) (save-excursion - (unless mark-active + (unless (use-region-p) (setq rstart nil rend nil) (beginning-of-line) (when (and (re-search-forward hif-macro-expr-prefix-regexp nil t) @@ -1922,7 +1922,7 @@ Return as (TOP . BOTTOM) the extent of ifdef block." With optional prefix argument ARG, also hide the #ifdefs themselves." (interactive "P\nr") (let ((hide-ifdef-lines arg)) - (if mark-active + (if (use-region-p) (let ((hif-recurse-level (1+ hif-recurse-level))) (hif-recurse-on start end t) (setq mark-active nil)) |