Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 01:34:21 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/textmodes/reftex.el: Silence byte-compiler warnings.

Browse source
This commit is contained in:
Stefan Monnier 2015-10-09 15:35:30 -04:00
parent d72d97fcbe
commit 69b3238af2
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/textmodes/reftex.el
View file

@ -1705,7 +1705,7 @@ When DIE is non-nil, throw an error if file not found."
(defvar message-stack)
(if (and (featurep 'xemacs)
(not (fboundp 'current-message)))
(defun current-message (&optional frame)
(defun current-message (&optional _frame)
(cdr (car message-stack))))
(defun reftex-visited-files (list)
@ -2047,7 +2047,7 @@ IGNORE-WORDS List of words which should be removed from the string."
(message "Sorry: cannot refontify RefTeX Select buffer."))))
(rename-buffer oldname))))
(defun reftex-select-font-lock-fontify-region (beg end &optional loudly)
(defun reftex-select-font-lock-fontify-region (beg end &optional _loudly)
;; Fontify a region, but only lines starting with a dot.
(let ((func (if (fboundp 'font-lock-default-fontify-region)
'font-lock-default-fontify-region
@ -2059,7 +2059,7 @@ IGNORE-WORDS List of words which should be removed from the string."
(funcall func beg1 end1 nil)
(goto-char end1))))
(defun reftex-select-font-lock-unfontify (&rest ignore) t)
(defun reftex-select-font-lock-unfontify (&rest _ignore) t)
(defun reftex-verified-face (&rest faces)
;; Return the first valid face in FACES, or nil if none is valid.
@ -2341,6 +2341,7 @@ output buffer into your mail program, as it gives us important
information about your RefTeX version and configuration."
(interactive)
(require 'reporter)
(defvar reporter-prompt-for-summary-p)
(let ((reporter-prompt-for-summary-p "Bug report subject: "))
(reporter-submit-bug-report
"bug-auctex@gnu.org, bug-gnu-emacs@gnu.org"