procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Suppress bogus messages in the echo area

Browse source 
* lisp/textmodes/reftex-dcr.el (reftex-view-crossref-when-idle):
Check if point inside a mandatory argument where the cite/ref key
usually resides.  For example, with \cite[45]{emacs:30} and point
on 4, the following bogus message in the echo area is suppressed:
"cite: no such database entry: \cite[45]".  (bug#38258)
Fix docstring.
This commit is contained in:
Arash Esbati 2024-04-10 23:05:39 +02:00
parent 3a91186ad3
commit ca528f7c6a
1 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/textmodes/reftex-dcr.el
View file

@ -241,9 +241,9 @@ With argument, actually select the window showing the cross reference."
(reftex-view-crossref current-prefix-arg))
(defun reftex-view-crossref-when-idle ()
;; Display info about crossref at point in echo area or a window.
;; This function was designed to work with an idle timer.
;; We try to get out of here as quickly as possible if the call is useless.
"Display info about crossref at point in echo area or a window.
This function is designed to work with an idle timer and returns quickly
if the call is useless."
(and reftex-mode
;; Make sure message area is free if we need it.
(or (eq reftex-auto-view-crossref 'window) (not (current-message)))
@ -255,7 +255,15 @@ With argument, actually select the window showing the cross reference."
(save-excursion
(search-backward "\\" nil t)
(looking-at "\\\\[a-zA-Z]*\\(cite\\|ref\\|bibentry\\)"))
;; Also check if point is inside a mandatory argument where the
;; cite/ref key usually resides: (bug#38258)
(save-excursion
(condition-case nil
(let ((forward-sexp-function nil))
(up-list -1)
(= (following-char) ?\{))
(error nil)))
;; Finally, call `reftex-view-crossref':
(condition-case nil
(let ((current-prefix-arg nil))
(cond