Created
November 3, 2014 20:01
-
-
Save bsuh/f8b12b0d7e15f75f9a7c to your computer and use it in GitHub Desktop.
Emacs 24.4 csharp-mode fix patch
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el | |
index 1606cfb..db292f0 100644 | |
--- a/lisp/progmodes/cc-defs.el | |
+++ b/lisp/progmodes/cc-defs.el | |
@@ -1834,11 +1834,11 @@ system." | |
immediately, i.e. at the same time as the `c-lang-defconst' form | |
itself is evaluated." | |
;; Evaluate at macro expansion time, i.e. in the | |
- ;; `cl-macroexpand-all' inside `c-lang-defconst'. | |
+ ;; `macroexpand-all' inside `c-lang-defconst'. | |
(eval form)) | |
;; Only used at compile time - suppress "might not be defined at runtime". | |
-(declare-function cl-macroexpand-all "cl" (form &optional env)) | |
+(declare-function macroexpand-all "cl" (form &optional env)) | |
(defmacro c-lang-defconst (name &rest args) | |
"Set the language specific values of the language constant NAME. | |
@@ -1881,7 +1881,7 @@ constant. A file is identified by its base name." | |
(let* ((sym (intern (symbol-name name) c-lang-constants)) | |
;; Make `c-lang-const' expand to a straightforward call to | |
- ;; `c-get-lang-constant' in `cl-macroexpand-all' below. | |
+ ;; `c-get-lang-constant' in `macroexpand-all' below. | |
;; | |
;; (The default behavior, i.e. to expand to a call inside | |
;; `eval-when-compile' should be equivalent, since that macro | |
@@ -1944,7 +1944,7 @@ constant. A file is identified by its base name." | |
;; reason, but we also use this expansion handle | |
;; `c-lang-defconst-eval-immediately' and to register | |
;; dependencies on the `c-lang-const's in VAL.) | |
- (setq val (cl-macroexpand-all val)) | |
+ (setq val (macroexpand-all val)) | |
(setq bindings (cons (cons assigned-mode val) bindings) | |
args (cdr args)))) | |
diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el | |
index d2d2de8..c45016e 100644 | |
--- a/lisp/progmodes/cc-langs.el | |
+++ b/lisp/progmodes/cc-langs.el | |
@@ -213,7 +213,7 @@ the evaluated constant value at compile time." | |
;; These are defined in cl as aliases to the cl- versions. | |
;(declare-function delete-duplicates "cl-seq" (cl-seq &rest cl-keys) t) | |
;(declare-function mapcan "cl-extra" (cl-func cl-seq &rest cl-rest) t) | |
-;(declare-function cl-macroexpand-all "cl" (form &optional env)) | |
+;(declare-function macroexpand-all "cl" (form &optional env)) | |
(eval-and-compile | |
;; Some helper functions used when building the language constants. | |
@@ -3183,7 +3183,7 @@ accomplish that conveniently." | |
`(lambda () | |
;; This let sets up the context for `c-mode-var' and similar | |
- ;; that could be in the result from `cl-macroexpand-all'. | |
+ ;; that could be in the result from `macroexpand-all'. | |
(let ((c-buffer-is-cc-mode ',mode) | |
current-var source-eval) | |
(c-make-emacs-variables-local) | |
@@ -3193,7 +3193,7 @@ accomplish that conveniently." | |
(setq ,@(let ((c-buffer-is-cc-mode mode) | |
(c-lang-const-expansion 'immediate)) | |
;; `c-lang-const' will expand to the evaluated | |
- ;; constant immediately in `cl-macroexpand-all' | |
+ ;; constant immediately in `macroexpand-all' | |
;; below. | |
(cl-mapcan | |
(lambda (init) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment