Overview
| Comment: | Ensure valid board names are entered |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
aabf564004f32609add4dbb604078fb6 |
| User & Date: | zge on 2021-01-19 10:39:03 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-01-19
| ||
| 15:39 | Add sbbs-goto-end for jumping to the end of a thread check-in: 99f8459c8b user: zge tags: master, trunk | |
| 10:39 | Ensure valid board names are entered check-in: aabf564004 user: zge tags: master, trunk | |
|
2020-12-16
| ||
| 12:13 | Don't break compatibility with emacs -nw check-in: 3b3f5a4071 user: zge tags: master, trunk | |
Changes
Modified sbbs.el from [7857cd54ea] to [d9b39dbe32].
161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 |
boards))
(let ((choice (completing-read
(if def
(format "Board (default %s/%s): "
(sbbs--board-domain def)
(sbbs--board-name def))
"Board: ")
boards nil nil "/" nil def)))
(if (stringp choice)
(cdr (assoc choice boards))
choice))))
;; UTILITY FUNCTIONS
(defun sbbs--reload-thread (&optional _ignore-auto _noconfirm)
|
| |
161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 |
boards))
(let ((choice (completing-read
(if def
(format "Board (default %s/%s): "
(sbbs--board-domain def)
(sbbs--board-name def))
"Board: ")
boards nil t "/" nil def)))
(if (stringp choice)
(cdr (assoc choice boards))
choice))))
;; UTILITY FUNCTIONS
(defun sbbs--reload-thread (&optional _ignore-auto _noconfirm)
|