[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elisp]How to ask and provide a Default value?
From: |
FKtPp@Office ;) |
Subject: |
[elisp]How to ask and provide a Default value? |
Date: |
Thu, 04 Mar 2004 14:54:04 +0800 |
User-agent: |
Gnus/5.1006 (Gnus v5.10.6) Emacs/21.3 (windows-nt) |
hi all,
I wrote a simple function like:
(defun sleeve-step-region (beginning end base step column)
"Insert a column of increasing numbers in the region.
"
;; And here, I want it ask some parameters when invoked. Now the
;; problem is: I want it provide a *Default* value, but don't know how
;; to write the character descriptions -_-!! In "(elisp) Interactive
;; Codes"
;; I find this:
;;
;; ,----
;; | Default
;; | A default value of some sort is used if the user enters no text in
;; | the minibuffer. The default depends on the code character.
;; `----
;;
;; Can anyone give me some sample to use this "Default" character
;; description?
;;
;; Somebody have suggested me to use "Lisp expression" in the
;; interactive special form. But I still want to know how to use the
;; character descriptions :P
(interactive "r\nnTell me the base Number: \nnTell me the Step: \nnWhich
column: ")
(let ((step-number (if (numberp step)
step
(string-to-number step)))
(base-number (if (numberp base)
base
(string-to-number base)))
(column-number (if (numberp column)
column
(string-to-number column))))
(save-excursion
(narrow-to-region beginning end)
(goto-char (point-min))
(beginning-of-line)
(while (< (point) (point-max))
(goto-char (+ (point) column-number))
(insert (number-to-string base-number))
(setq base-number (+ base-number step-number))
(forward-line))
(widen))))
best wishes and thanks for any suggestions!! :)
yours FKtPp
- [elisp]How to ask and provide a Default value?,
FKtPp@Office ;) <=