How to deactivate mark?

How to deactivate mark?

[Uday S Reddy]

I tried to define a command called narrow-to-defun as follows:

(defun narrow-to-defun ()
  "Narrow to the current defun around point"
  (interactive)
  (mark-defun)
  (narrow-to-region (point) (mark))
  )

Unfortunately, running the command makes the mark "active," thereby highlighting the defun at the end of the execution.  I have tried various tricks to get the mark to turn off - like calling deactivate-mark, binding deactivate-mark to t locally, binding transient-mark-mode to nil etc.  But none of them is able to turn off the active mark at the end.  

What am I missing?

Cheers,
Uday Reddy

Re: How to deactivate mark?

[Harald Hanche-Olsen]

+ Uday S Reddy <uDOTsDOTreddy@cs.bham.ac.uk>:

> I tried to define a command called narrow-to-defun as follows:
>
> (defun narrow-to-defun ()
>  "Narrow to the current defun around point"
>  (interactive)
>  (mark-defun)
>  (narrow-to-region (point) (mark))
>  )
>
> Unfortunately, running the command makes the mark "active," thereby
> highlighting the defun at the end of the execution.  I have tried
> various tricks to get the mark to turn off - like calling
> deactivate-mark, binding deactivate-mark to t locally, binding
> transient-mark-mode to nil etc.  But none of them is able to turn off
> the active mark at the end.  
>
> What am I missing?

Adding (deactivate-mark) to the end of your definition works for me. Did
you forget to evaluate the defun after adding this bit? (I forget it all
the time.)

-- 
* Harald Hanche-Olsen     <URL:http://www.math.ntnu.no/~hanche/>
- It is undesirable to believe a proposition
  when there is no ground whatsoever for supposing it is true.
  -- Bertrand Russell

Re: How to deactivate mark?

[Uday S Reddy]

Harald Hanche-Olsen wrote:

> Adding (deactivate-mark) to the end of your definition works for me. Did
> you forget to evaluate the defun after adding this bit? (I forget it all
> the time.)

Yes, I must have forgotten to eval the defun.  Thank you.

I also discovered that setting the variable `deactivate-mark' to t (instead of binding it locally) works as well.

Cheers,
Uday

Re: How to deactivate mark?

[Andreas Politz]

Uday S Reddy <uDOTsDOTreddy@cs.bham.ac.uk> writes:

> Harald Hanche-Olsen wrote:
>
>> Adding (deactivate-mark) to the end of your definition works for me. Did
>> you forget to evaluate the defun after adding this bit? (I forget it all
>> the time.)
>
> Yes, I must have forgotten to eval the defun.  Thank you.
>
> I also discovered that setting the variable `deactivate-mark' to t
> (instead of binding it locally) works as well.
>
> Cheers,
> Uday

In case you don't know : There is a already a function
`narrow-to-defun'.

-ap