如何实现按回车键接受指定的默认值？

mokson

(setq Sel (getstring "你想干什么：[打开(Open)/关闭(Close)/保存(Save)] <S>:"))

按下回车键是空值，如何让它接受指定的默认值为“S” 呢？谢谢

菜卷鱼

长老问这么难的问题，我不知道该不该回答
(if (= sel "")(setq sel "S"))

但是遇到这种选择性关键字的，我会用 getkword

(initget 128 "Open Close Save")
(setq Sel (getkword "你想干什么：[打开(Open)/关闭(Close)/保存(Save)] <S>:"))
(if (null sel)(setq sel "Save"))

mokson

我以为一条代码就可以实现呢，我学艺不精！

guosheyang

长老是其他语言的高手 lisp不熟悉

xyp1964

1. (defun Ukword (bit kwd msg def / inp)
   
2.   (if (and def (/= def ""))
   
3.     (setq msg (strcat "\n" msg "<" def ">: ") bit (* 2 (fix (/ bit 2))))
   
4.     (setq msg (strcat "\n" msg ": "))
   
5.   )
   
6.   (initget bit kwd)
   
7.   (setq inp (getkword msg))
   
8.   (if inp inp def)
   
9. )
   
10. 
    
11. (or Sel(setq Sel "S"))
    
12. (setq Sel (Ukword 1 "O C S" "你想干什么：[打开(Open)/关闭(Close)/保存(Save)" Sel))
    

(defun Ukword (bit kwd msg def / inp)<br />   (if (and def (/= def ""))<br />     (setq msg (strcat "\n" msg "<" def ">: ") bit (* 2 (fix (/ bit 2))))<br />     (setq msg (strcat "\n" msg ": "))<br />   )<br />   (initget bit kwd)<br />   (setq inp (getkword msg))<br />   (if inp inp def)<br /> )<br /> <br /> (or Sel(setq Sel "S"))<br /> (setq Sel (Ukword 1 "O C S" "你想干什么：[打开(Open)/关闭(Close)/保存(Save)" Sel))<br />

mokson

xyp1964 发表于 2022-3-8 22:08

有点深奥呀,学习起来有点吃力.

edata

凑个数。

1. (initget 128 "Open Close Save")
   
2. (setq Sel (cond ((getkword "你想干什么：[打开(Open)/关闭(Close)/保存(Save)] <S>:"))("Save")))
   

(initget 128 "Open Close Save")<br /> (setq Sel (cond ((getkword "你想干什么：[打开(Open)/关闭(Close)/保存(Save)] <S>:"))("Save")))<br />

mokson

edata 发表于 2022-3-9 20:48
凑个数。

老哥，简明扼要呀。太感谢了！