[AUCTeX-diffs] Changes to reftex/lisp/reftex-auc.el,v

[Ralf Angeli]

CVSROOT:        /sources/auctex
Module name:    reftex
Changes by:     Ralf Angeli <angeli>    12/10/04 20:03:25

Index: lisp/reftex-auc.el
===================================================================
RCS file: /sources/auctex/reftex/lisp/reftex-auc.el,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -b -r1.33 -r1.34
--- lisp/reftex-auc.el  8 Aug 2009 16:29:44 -0000       1.33
+++ lisp/reftex-auc.el  4 Oct 2012 20:03:24 -0000       1.34
@@ -1,17 +1,16 @@
 ;;; reftex-auc.el --- RefTeX's interface to AUCTeX
 
-;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
-;;   2006, 2007 Free Software Foundation, Inc.
+;; Copyright (C) 1997-2012 Free Software Foundation, Inc.
 
 ;; Author: Carsten Dominik <address@hidden>
 ;; Maintainer: address@hidden
 
 ;; This file is part of GNU Emacs.
 
-;; GNU Emacs is free software; you can redistribute it and/or modify
+;; GNU Emacs is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -19,33 +18,31 @@
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
+;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;; Commentary:
 
 ;;; Code:
 
-;; All glory to the byte compiler.
 (eval-when-compile (require 'cl))
+
+(require 'reftex-base)
+
 (eval-and-compile
   (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
 (declare-function TeX-argument-prompt "ext:tex"
                  (optional prompt default &optional complete))
 (declare-function TeX-argument-insert "ext:tex"
                  (name optional &optional prefix))
-(declare-function LaTeX-add-labels "ext:tex" (&rest entries))
-(declare-function LaTeX-add-index-entries "ext:tex" (&rest entries))
-(declare-function LaTeX-bibitem-list "ext:tex" ())
-(declare-function LaTeX-index-entry-list "ext:tex" ())
-(declare-function LaTeX-label-list "ext:tex" ())
+(declare-function LaTeX-add-labels "ext:tex" (&rest entries) t)
+(declare-function LaTeX-add-index-entries "ext:tex" (&rest entries) t)
+(declare-function LaTeX-bibitem-list "ext:tex" () t)
+(declare-function LaTeX-index-entry-list "ext:tex" () t)
+(declare-function LaTeX-label-list "ext:tex" () t)
 (declare-function multi-prompt "ext:multi-prompt"
                  (separator unique prompt table &optional
                             mp-predicate require-match initial history))
 
-(require 'reftex-base)
-
 (defun reftex-plug-flag (which)
   ;; Tell if a certain flag is set in reftex-plug-into-AUCTeX
   (or (eq t reftex-plug-into-AUCTeX)
@@ -61,7 +58,7 @@
       ;; Create a new label, with a temporary brace for `reftex-what-macro'
       (unwind-protect
           (progn (insert "{") (setq label (or (reftex-label nil t) "")))
-        (delete-backward-char 1)))
+        (delete-char -1)))
      ((and (not definition) (reftex-plug-flag 2))
       ;; Reference a label with RefTeX
       (setq label (reftex-reference nil t)))
@@ -231,5 +228,4 @@
 
 (provide 'reftex-auc)
 
-;;; arch-tag: 4a798e68-3405-421c-a09b-0269aac64ab4
 ;;; reftex-auc.el ends here