mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-30 04:10:54 -08:00
; Fix last major-mode-remap-defaults change.
This commit is contained in:
parent
2b5d43081a
commit
6dacb60bb1
3 changed files with 6 additions and 6 deletions
|
|
@ -6608,7 +6608,7 @@ use it to set a major mode there, e.g.,
|
|||
(interactive)
|
||||
(org-export-to-buffer \\='latex \"*Org LATEX Export*\"
|
||||
async subtreep visible-only body-only ext-plist
|
||||
(major-mode-remap 'latex-mode)))
|
||||
(major-mode-remap \\='latex-mode)))
|
||||
|
||||
When expressed as an anonymous function, using `lambda',
|
||||
POST-PROCESS needs to be quoted.
|
||||
|
|
|
|||
|
|
@ -1438,7 +1438,7 @@ should be used.
|
|||
This function attempts to use file contents to determine whether
|
||||
the code is C or C++ and based on that chooses whether to enable
|
||||
`c-ts-mode' or `c++-ts-mode'."
|
||||
(declare (obsolete c-or-c++-mode "30.1"))?
|
||||
(declare (obsolete c-or-c++-mode "30.1"))
|
||||
(interactive)
|
||||
(let ((mode
|
||||
(if (save-excursion
|
||||
|
|
@ -1447,8 +1447,8 @@ the code is C or C++ and based on that chooses whether to enable
|
|||
(widen)
|
||||
(goto-char (point-min))
|
||||
(re-search-forward c-ts-mode--c-or-c++-regexp nil t))))
|
||||
'c++-ts-mode)
|
||||
'c-ts-mode))
|
||||
'c++-ts-mode
|
||||
'c-ts-mode)))
|
||||
(funcall (major-mode-remap mode))))
|
||||
|
||||
;; The entries for C++ must come first to prevent *.c files be taken
|
||||
|
|
|
|||
|
|
@ -2910,8 +2910,8 @@ the code is C or C++ and based on that chooses whether to enable
|
|||
(goto-char (point-min))
|
||||
(re-search-forward c-or-c++-mode--regexp
|
||||
(+ (point) c-guess-region-max) t))))
|
||||
'c++-mode)
|
||||
'c-mode))
|
||||
'c++-mode
|
||||
'c-mode)))
|
||||
(funcall (if (fboundp 'major-mode-remap)
|
||||
(major-mode-remap mode)
|
||||
mode))))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue