diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-10-09 15:35:30 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-10-09 15:35:30 -0400 |
| commit | 69b3238af2c6884d4ebbdb03603804e61fd45eba (patch) | |
| tree | f62b7deb57bb023f3a3243976a1fd6cb0b5c848a /lisp/textmodes | |
| parent | d72d97fcbe4f9a989d3f214eed8036bd52ff0141 (diff) | |
| download | emacs-69b3238af2c6884d4ebbdb03603804e61fd45eba.tar.gz | |
* lisp/textmodes/reftex.el: Silence byte-compiler warnings.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/reftex.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el index f567963dbd1..66415234033 100644 --- a/lisp/textmodes/reftex.el +++ b/lisp/textmodes/reftex.el @@ -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" |