X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/1b589bba5f75a9ff86de6069604006c01b021578..9398c03c74b6df40aad01a29b628d591cd5f3498:/packages/auctex/style/frenchb.el

diff --git a/packages/auctex/style/frenchb.el b/packages/auctex/style/frenchb.el
index fcef8a1d3..83f900241 100644
--- a/packages/auctex/style/frenchb.el
+++ b/packages/auctex/style/frenchb.el
@@ -66,12 +66,13 @@
      "ThinSpaceInFrenchNumbers"
      "FrenchLayout"
      "StandardLayout")
-   (setq TeX-quote-language
-	 `("french" "\\og "
-	   (lambda ()
-	     (concat "\\fg"
-		     (unless (member "xspace" TeX-active-styles) "{}")))
-	   ,TeX-quote-after-quote))
+   (unless (eq (car TeX-quote-language) 'override)
+     (setq TeX-quote-language
+	   `("french" "\\og "
+	     (lambda ()
+	       (concat "\\fg"
+		       (unless (member "xspace" TeX-active-styles) "{}")))
+	     ,TeX-quote-after-quote)))
    (run-hooks 'TeX-language-fr-hook)))
 
 ;;; frenchb.el ends here