help-gnu-emacs
[Top][All Lists]
Advanced

[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 


reply via email to

[Prev in Thread] Current Thread [Next in Thread]