[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Bell

From: Juri Linkov
Subject: Re: Bell
Date: Sun, 21 Mar 2010 01:59:05 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (x86_64-pc-linux-gnu)

>> > If some people don't like the currentl visual bell, maybe
>> > we can come up with a better one.
>> http://www.emacswiki.org/emacs/MilesBader#echo-area-bell

> Rather, what's called for is a way to mute `ding' in a flexible way. What Juri
> suggested wrt putting a silence property on function symbols, and what I
> suggested wrt binding a silence variable, would provide what's needed. And 
> maybe
> there are other suggestions.

Maybe what Miles suggested would be a better ring bell function?
What I like is an error message highlighted in the echo-area.

Currently in most cases a flashing screen is accompanied
with an error message.  I think it's a bug when there is
no error message displayed.  For instance, typing C-b or M-v
at the beginning of the buffer displays "Beginning of buffer",
but typing C-p doesn't display this error message.  I think
it is a bug that should be fixed with this patch:

=== modified file 'lisp/simple.el'
--- lisp/simple.el      2010-03-05 12:01:10 +0000
+++ lisp/simple.el      2010-03-20 23:57:09 +0000
@@ -4105,9 +4115,10 @@ (defun next-line (&optional arg try-vscr
            (insert (if use-hard-newlines hard-newline "\n")))
        (line-move arg nil nil try-vscroll))
     (if (called-interactively-p 'interactive)
-       (condition-case nil
+       (condition-case err
            (line-move arg nil nil try-vscroll)
-         ((beginning-of-buffer end-of-buffer) (ding)))
+         ((beginning-of-buffer end-of-buffer)
+          (ding (message "%s" (error-message-string err)))))
       (line-move arg nil nil try-vscroll)))
@@ -4135,9 +4146,10 @@ (defun previous-line (&optional arg try-
   (interactive "^p\np")
   (or arg (setq arg 1))
   (if (called-interactively-p 'interactive)
-      (condition-case nil
+      (condition-case err
          (line-move (- arg) nil nil try-vscroll)
-       ((beginning-of-buffer end-of-buffer) (ding)))
+       ((beginning-of-buffer end-of-buffer)
+        (ding (message "%s" (error-message-string err)))))
     (line-move (- arg) nil nil try-vscroll))

Juri Linkov

reply via email to

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