diff options
| author | Dmitry Gutov | 2015-08-01 14:21:02 +0300 |
|---|---|---|
| committer | Dmitry Gutov | 2015-08-01 14:40:55 +0300 |
| commit | 4da09534ee2d0a58f82f56163e09bd041adf933f (patch) | |
| tree | 58b87ba932590a09bf15a3415957ac63767d02f0 | |
| parent | 073ad26d366ac82c9207d0862df033accb9203c4 (diff) | |
| download | emacs-4da09534ee2d0a58f82f56163e09bd041adf933f.tar.gz emacs-4da09534ee2d0a58f82f56163e09bd041adf933f.zip | |
Ignore buffer restriction for tags-loop-eval
* lisp/progmodes/etags.el (tags-loop-continue): Ignore buffer
restriction (bug#21167).
| -rw-r--r-- | lisp/progmodes/etags.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index f5745a9c8e8..04c3ce110f7 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el | |||
| @@ -1846,7 +1846,9 @@ nil, we exit; otherwise we scan the next file." | |||
| 1846 | 1846 | ||
| 1847 | ;; Now operate on the file. | 1847 | ;; Now operate on the file. |
| 1848 | ;; If value is non-nil, continue to scan the next file. | 1848 | ;; If value is non-nil, continue to scan the next file. |
| 1849 | (tags-loop-eval tags-loop-operate)) | 1849 | (save-restriction |
| 1850 | (widen) | ||
| 1851 | (tags-loop-eval tags-loop-operate))) | ||
| 1850 | (setq file-finished t)) | 1852 | (setq file-finished t)) |
| 1851 | (and messaged | 1853 | (and messaged |
| 1852 | (null tags-loop-operate) | 1854 | (null tags-loop-operate) |