|
@@ -1958,6 +1958,10 @@ is the language used for CODE, as a string, or nil."
|
|
|
(setq code (with-temp-buffer
|
|
(setq code (with-temp-buffer
|
|
|
;; Switch to language-specific mode.
|
|
;; Switch to language-specific mode.
|
|
|
(funcall lang-mode)
|
|
(funcall lang-mode)
|
|
|
|
|
+ ;; Disable fci-mode if present
|
|
|
|
|
+ (when (and (fboundp 'fci-mode)
|
|
|
|
|
+ (require 'fill-column-indicator nil 'noerror))
|
|
|
|
|
+ (fci-mode -1))
|
|
|
(insert code)
|
|
(insert code)
|
|
|
;; Fontify buffer.
|
|
;; Fontify buffer.
|
|
|
(font-lock-ensure)
|
|
(font-lock-ensure)
|