comparison lisp/textmodes/reftex-toc.el @ 105170:f8ba8d6fd250

Fix typos. * allout.el * dired-aux.el * dired-x.el * epa-file.el * ps-print.el * shell.el * vc-hooks.el * vc-rcs.el * vc-sccs.el * vc.el * view.el * wdired.el * emacs-lisp/authors.el * net/dig.el * net/socks.el * net/zeroconf.el * obsolete/vc-mcvs.el * progmodes/gdb-mi.el * progmodes/grep.el * progmodes/idlw-help.el * progmodes/idlw-shell.el * progmodes/idlwave.el * progmodes/inf-lisp.el * textmodes/bibtex.el * textmodes/ispell.el * textmodes/reftex-toc.el

105169:1d903e2f65af

                      ;; OK, get the makro name
                      (progn
                        (beginning-of-line 1)
                        (if (looking-at reftex-section-regexp)
                            (setq name (reftex-match-string 2))
                          (error "Something is wrong! Contact maintainer!")))
                    ;; Section has changed, request scan and loading
                    ;; We use a variable to delay until after the safe-exc.
                    ;; because otherwise we loose the region.
                    (setq load t)))
                ;; Scan document and load all files, this exits command

label prefix determines the wording of a reference."
  (interactive)
  (let* ((toc (get-text-property (point) :data))
         (label (car toc)) newlabel)
    (if (not (stringp label))
        (error "This is not a label entry."))
    (setq newlabel (read-string (format "Rename label \"%s\" to:" label)))
    (if (assoc newlabel (symbol-value reftex-docstruct-symbol))
        (if (not (y-or-n-p
                  (format "Label '%s' exists. Use anyway? " label)))
            (error "Abort")))

105170:f8ba8d6fd250

                      ;; OK, get the makro name
                      (progn
                        (beginning-of-line 1)
                        (if (looking-at reftex-section-regexp)
                            (setq name (reftex-match-string 2))
                          (error "Something is wrong!  Contact maintainer!")))
                    ;; Section has changed, request scan and loading
                    ;; We use a variable to delay until after the safe-exc.
                    ;; because otherwise we loose the region.
                    (setq load t)))
                ;; Scan document and load all files, this exits command

label prefix determines the wording of a reference."
  (interactive)
  (let* ((toc (get-text-property (point) :data))
         (label (car toc)) newlabel)
    (if (not (stringp label))
        (error "This is not a label entry"))
    (setq newlabel (read-string (format "Rename label \"%s\" to:" label)))
    (if (assoc newlabel (symbol-value reftex-docstruct-symbol))
        (if (not (y-or-n-p
                  (format "Label '%s' exists. Use anyway? " label)))
            (error "Abort")))