Re: replace-regexp in lisp function

Re: replace-regexp in lisp function

[David Kastrup]

Sven Garbade <sfgarbade@googlemail.com> writes:

> Hallo List,
>
> I frequently use the following regular-regexp:
>
> M-x replace-regexp <RET> \(<<\) <RET> \1cn\,(+ (line-number-at-pos) \#)
>
> to replace "<<" with "<<cn=line number". I tried to write a function
>
> ;; add chunk number
> (defun add-chunk-number ()
>   (interactive)
>   (query-replace-regexp "\(<<\)" "\1cn\,(+ (line-number-at-pos) \#)")
>   )
>
> to save typing, but this does not work. What did I wrong?

Lisp string syntax needs additional quoting for regexps, and things like
\, and \# are not supported outside of interactive use.

I recommend that you first give your command interactively, then use C-x
Esc Esc to get at the corresponding Lisp verbiage.

-- 
David Kastrup

Re: replace-regexp in lisp function

[Sven Garbade]

Hi,

many thanks. C-x Esc Esc gave me:

  (query-replace-regexp "\\(<<\\)"
			(quote (replace-eval-replacement concat "\\1cn" (replace-quote (+
(line-number-at-pos) replace-count)) ",")) nil
			(if (and transient-mark-mode mark-active) (region-beginning))
			(if (and transient-mark-mode mark-active) (region-end)))

which works inside my function. Looks quite complicate for me...

Are there any recommended documents / books for an elisp newbie?

Thanks, Sven




2010/1/18 David Kastrup <dak@gnu.org>:
> Sven Garbade <sfgarbade@googlemail.com> writes:
>
>> Hallo List,
>>
>> I frequently use the following regular-regexp:
>>
>> M-x replace-regexp <RET> \(<<\) <RET> \1cn\,(+ (line-number-at-pos) \#)
>>
>> to replace "<<" with "<<cn=line number". I tried to write a function
>>
>> ;; add chunk number
>> (defun add-chunk-number ()
>>   (interactive)
>>   (query-replace-regexp "\(<<\)" "\1cn\,(+ (line-number-at-pos) \#)")
>>   )
>>
>> to save typing, but this does not work. What did I wrong?
>
> Lisp string syntax needs additional quoting for regexps, and things like
> \, and \# are not supported outside of interactive use.
>
> I recommend that you first give your command interactively, then use C-x
> Esc Esc to get at the corresponding Lisp verbiage.
>
> --
> David Kastrup
>

Re: replace-regexp in lisp function

[David Kastrup]

Sven Garbade <sfgarbade@googlemail.com> writes:

> Hi,
>
> many thanks. C-x Esc Esc gave me:
>
>   (query-replace-regexp "\\(<<\\)"
> 			(quote (replace-eval-replacement concat "\\1cn" (replace-quote (+
> (line-number-at-pos) replace-count)) ",")) nil
> 			(if (and transient-mark-mode mark-active) (region-beginning))
> 			(if (and transient-mark-mode mark-active) (region-end)))
>
> which works inside my function. Looks quite complicate for me...

Depending on the application, the expression (if (and
transient-mark-mode mark-active) (region-beginning)) and its cousin can
get replaced by known values, such as (point-min) and (point-max).

-- 
David Kastrup

Re: replace-regexp in lisp function

[Pascal J. Bourguignon]

Sven Garbade <sfgarbade@googlemail.com> writes:

> Hallo List,
>
> I frequently use the following regular-regexp:
>
> M-x replace-regexp <RET> \(<<\) <RET> \1cn\,(+ (line-number-at-pos) \#)
>
> to replace "<<" with "<<cn=line number". I tried to write a function
>
> ;; add chunk number
> (defun add-chunk-number ()
>   (interactive)
>   (query-replace-regexp "\(<<\)" "\1cn\,(+ (line-number-at-pos) \#)")
>   )
>
> to save typing, but this does not work. What did I wrong?

You don't understand the syntax of strings.

How many characters are there in "\(" ?
How many characters are there in "\n" ?
How many characters are there in "\\(" ?
How many characters are there in "\\n" ?


-- 
__Pascal Bourguignon__                     http://www.informatimago.com/

replace-regexp in lisp function

[Sven Garbade]

Hallo List,

I frequently use the following regular-regexp:

M-x replace-regexp <RET> \(<<\) <RET> \1cn\,(+ (line-number-at-pos) \#)

to replace "<<" with "<<cn=line number". I tried to write a function

;; add chunk number
(defun add-chunk-number ()
  (interactive)
  (query-replace-regexp "\(<<\)" "\1cn\,(+ (line-number-at-pos) \#)")
  )

to save typing, but this does not work. What did I wrong?

Thanks, Sven