Re: lisp function help

Re: lisp function help

[Pieter van Oostrum]

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]