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>
* commands1.el (kom-move-text-tree): New command, innit?
......
......@@ -2908,10 +2908,10 @@ Tryck p
----------------------------------------------------------------
"
'(face kom-warning-face))
(ding)
;; Make sure the user actually gets a beep.
(if visible-bell
(let ((visible-bell nil))
(ding)))
;; Beep both visibly and audibly, if possible. We *want* to be annoying.
(let ((visible-bell t))
(ding))
(let ((visible-bell nil))
(ding)))
(read-from-minibuffer
(lyskom-format "%#1@Tryck return eller enter fr att g vidare: " '(face kom-warning-face))))
Markdown is supported
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