Newbie: Unable to write a custom function

Newbie: Unable to write a custom function

[deech]

Hi all,
I am new to Emacs. I have written a new search function into my .emacs
file but I am unable to invoke it with M-x when I restart Emacs. There
are no error messages when Emacs starts up. Here is the code:

;;Search backwards from a point for a string. If found delete
;;all characters from that string to the point.
;;Eg Given the argument 't', 'alligator' becomes 'alliga'
(defun isearch-backward-tophrase ()
  (set-mark-command ())
  (isearch-backward )
  (kill-region ()())
)

Any idea what I am doing wrong?

Thanks...
Deech

Re: Newbie: Unable to write a custom function

[Andre Kuehne]

deech wrote:
> Hi all,
> I am new to Emacs. I have written a new search function into my .emacs
> file but I am unable to invoke it with M-x when I restart Emacs. There
> are no error messages when Emacs starts up. Here is the code:
> 
> ;;Search backwards from a point for a string. If found delete
> ;;all characters from that string to the point.
> ;;Eg Given the argument 't', 'alligator' becomes 'alliga'
> (defun isearch-backward-tophrase ()
>   (set-mark-command ())
>   (isearch-backward )
>   (kill-region ()())
> )
> 
> Any idea what I am doing wrong?

You have to use the (interactive) special form to make your
funtion invokable with M-x:

(defun isearch-backward-tophrase ()
    (interactive)
    ...

Regards
Andre

> Thanks...
> Deech
> 
> _______________________________________________
> help-gnu-emacs mailing list
> help-gnu-emacs@gnu.org
> http://lists.gnu.org/mailman/listinfo/help-gnu-emacs
> 

Re: Newbie: Unable to write a custom function

[Dieter Wilhelm]

Andre Kuehne <andre.kuehne@gmx.net> writes:

> deech wrote:
>> Hi all,
>> I am new to Emacs. I have written a new search function into my .emacs
>> file but I am unable to invoke it with M-x when I restart Emacs. There
>> are no error messages when Emacs starts up. Here is the code:
>>
>> ;;Search backwards from a point for a string. If found delete
>> ;;all characters from that string to the point.
>> ;;Eg Given the argument 't', 'alligator' becomes 'alliga'
>> (defun isearch-backward-tophrase ()
>>   (set-mark-command ())
>>   (isearch-backward )
>>   (kill-region ()())
>> )
>>
>> Any idea what I am doing wrong?
>
> You have to use the (interactive) special form to make your
> funtion invokable with M-x:
>
> (defun isearch-backward-tophrase ()
>    (interactive)
>    ...

...

By the way, please try it without the mark, at least in interactive
mode isearch-backward sets the mark where it starts the search.


-- 
    Best wishes

    H. Dieter Wilhelm
    Darmstadt, Germany

Re: Newbie: Unable to write a custom function

[Mathias Dahl]

"deech" <aditya.siram@gmail.com> writes:

> ;;Search backwards from a point for a string. If found delete
> ;;all characters from that string to the point.
> ;;Eg Given the argument 't', 'alligator' becomes 'alliga'
> (defun isearch-backward-tophrase ()
>   (set-mark-command ())
>   (isearch-backward )
>   (kill-region ()())
> )

Maybe this is what you want:

(defun del-back-to-string (str)
  (interactive "sString: ")
  (let ((start (point)))
    (if (search-backward str nil t)
        (kill-region (point) start))))

Also, you don't have to restart Emacs to test your new command; just
place point after the last parenthesis and type C-x C-e
(`eval-last-sexp') and it will be evaluated and ready to be used.

Re: Newbie: Unable to write a custom function

[Uber_Micro]

Mathias Dahl <brakjoller@gmail.com> writes:


> Maybe this is what you want:
> 
> (defun del-back-to-string (str)
>   (interactive "sString: ")
>    ...


(interactive "*sString: ")

just a good habit to get into, "*" in front checks for read only
buffer 



-- 
So I remember, (ispell-buffer)