diff options
| author | Richard M. Stallman | 1994-03-05 20:32:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-03-05 20:32:35 +0000 |
| commit | 9fed2b18527d163fa2d9134295371aead803b2e1 (patch) | |
| tree | e25143b87445532cb06980974bd13f62e46d1d5c /src | |
| parent | fd186f07f11b4d2e798eec40edf784fa97cebfb7 (diff) | |
| download | emacs-9fed2b18527d163fa2d9134295371aead803b2e1.tar.gz emacs-9fed2b18527d163fa2d9134295371aead803b2e1.zip | |
(save_excursion_restore): Don't call Vrun_hooks if nil.
Diffstat (limited to 'src')
| -rw-r--r-- | src/editfns.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/editfns.c b/src/editfns.c index e12e39e82f1..037c00d3c8b 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -324,10 +324,13 @@ save_excursion_restore (info) | |||
| 324 | 324 | ||
| 325 | tem1 = current_buffer->mark_active; | 325 | tem1 = current_buffer->mark_active; |
| 326 | current_buffer->mark_active = Fcdr (tem); | 326 | current_buffer->mark_active = Fcdr (tem); |
| 327 | if (! NILP (current_buffer->mark_active)) | 327 | if (!NILP (Vrun_hooks)) |
| 328 | call1 (Vrun_hooks, intern ("activate-mark-hook")); | 328 | { |
| 329 | else if (! NILP (tem1)) | 329 | if (! NILP (current_buffer->mark_active)) |
| 330 | call1 (Vrun_hooks, intern ("deactivate-mark-hook")); | 330 | call1 (Vrun_hooks, intern ("activate-mark-hook")); |
| 331 | else if (! NILP (tem1)) | ||
| 332 | call1 (Vrun_hooks, intern ("deactivate-mark-hook")); | ||
| 333 | } | ||
| 331 | return Qnil; | 334 | return Qnil; |
| 332 | } | 335 | } |
| 333 | 336 | ||