Commit 355ca0f7 authored by Per Cederqvist's avatar Per Cederqvist
Browse files

(kom-obsolete-extended-command-binding): Be annoying both ways.

parent bb4a0cd9
2002-05-03 Per Cederqvist <ceder@ingate.com>
* commands2.el (kom-obsolete-extended-command-binding): Be
annoying both ways.
2002-05-01 David Byers <david.byers@swipnet.se> 2002-05-01 David Byers <david.byers@swipnet.se>
* commands1.el (kom-move-text-tree): New command, innit? * commands1.el (kom-move-text-tree): New command, innit?
......
...@@ -2908,10 +2908,10 @@ Tryck p ...@@ -2908,10 +2908,10 @@ Tryck p
---------------------------------------------------------------- ----------------------------------------------------------------
" "
'(face kom-warning-face)) '(face kom-warning-face))
(ding) ;; Beep both visibly and audibly, if possible. We *want* to be annoying.
;; Make sure the user actually gets a beep. (let ((visible-bell t))
(if visible-bell (ding))
(let ((visible-bell nil)) (let ((visible-bell nil))
(ding))) (ding)))
(read-from-minibuffer (read-from-minibuffer
(lyskom-format "%#1@Tryck return eller enter fr att g vidare: " '(face kom-warning-face)))) (lyskom-format "%#1@Tryck return eller enter fr att g vidare: " '(face kom-warning-face))))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment