[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: lisp function help
From: |
Pieter van Oostrum |
Subject: |
Re: lisp function help |
Date: |
Tue, 21 Apr 2020 16:24:03 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/27.0.90 (darwin) |
Axel Reichert <mail@axel-reichert.de> writes:
>> (if (and beg end)
>> ((message "inside if")
>> (sort-numeric-fields field beg end)
>> (reverse-region beg end))
>> )
>
> progn missing here?
Not only that but also a missing ) at the end of the (interactive
(list (read-number "Field number: " 1) (point-min) (point-max))))
(defun sort-numeric-fields-reverse (field beg end)
"sort numeric fields in reverse order"
(interactive
(if (use-region-p)
(list (read-number "Field number: " 1) (region-beginning) (region-end))
(list (read-number "Field number: " 1) (point-min) (point-max))))
(message "calling if")
(if (and beg end)
(progn
(message "inside if")
(sort-numeric-fields field beg end)
(reverse-region beg end))
)
)
--
Pieter van Oostrum
www: http://pieter.vanoostrum.org/
PGP key: [8DAE142BE17999C4]
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Re: lisp function help,
Pieter van Oostrum <=