diff options
| -rw-r--r-- | cider-browse-ns.el | 1 | ||||
| -rw-r--r-- | cider-browse-spec.el | 3 | ||||
| -rw-r--r-- | cider-classpath.el | 1 | ||||
| -rw-r--r-- | cider-doc.el | 1 | ||||
| -rw-r--r-- | cider-inspector.el | 1 | ||||
| -rw-r--r-- | cider-repl-history.el | 1 | ||||
| -rw-r--r-- | cider-scratch.el | 3 | ||||
| -rw-r--r-- | cider-stacktrace.el | 1 | ||||
| -rw-r--r-- | cider-test.el | 1 | ||||
| -rw-r--r-- | cider.el | 3 | ||||
| -rw-r--r-- | nrepl-client.el | 1 |
11 files changed, 15 insertions, 2 deletions
diff --git a/cider-browse-ns.el b/cider-browse-ns.el index 42c22ea1..6f735353 100644 --- a/cider-browse-ns.el +++ b/cider-browse-ns.el @@ -79,6 +79,7 @@ \\{cider-browse-ns-mode-map}" (setq-local electric-indent-chars nil) + (setq-local sesman-system 'CIDER) (when cider-special-mode-truncate-lines (setq-local truncate-lines t)) (setq-local cider-browse-ns-current-ns nil)) diff --git a/cider-browse-spec.el b/cider-browse-spec.el index e74c7501..d58352b1 100644 --- a/cider-browse-spec.el +++ b/cider-browse-spec.el @@ -64,6 +64,7 @@ \\{cider-browse-spec-mode-map}" (setq-local electric-indent-chars nil) + (setq-local sesman-system 'CIDER) (when cider-special-mode-truncate-lines (setq-local truncate-lines t))) @@ -86,6 +87,7 @@ \\{cider-browse-spec-view-mode-map}" (setq-local cider-browse-spec--current-spec nil) (setq-local electric-indent-chars nil) + (setq-local sesman-system 'CIDER) (when cider-special-mode-truncate-lines (setq-local truncate-lines t))) @@ -104,6 +106,7 @@ \\{cider-browse-spec-example-mode-map}" (setq-local electric-indent-chars nil) (setq-local revert-buffer-function #'cider-browse-spec--example-revert-buffer-function) + (setq-local sesman-system 'CIDER) (when cider-special-mode-truncate-lines (setq-local truncate-lines t))) diff --git a/cider-classpath.el b/cider-classpath.el index 77056496..10141370 100644 --- a/cider-classpath.el +++ b/cider-classpath.el @@ -48,6 +48,7 @@ \\{cider-classpath-mode-map}" (setq-local electric-indent-chars nil) + (setq-local sesman-system 'CIDER) (when cider-special-mode-truncate-lines (setq-local truncate-lines t))) diff --git a/cider-doc.el b/cider-doc.el index 6798eba4..5cca0505 100644 --- a/cider-doc.el +++ b/cider-doc.el @@ -184,6 +184,7 @@ \\{cider-docview-mode-map}" (setq buffer-read-only t) + (setq-local sesman-system 'CIDER) (when cider-special-mode-truncate-lines (setq-local truncate-lines t)) (setq-local electric-indent-chars nil) diff --git a/cider-inspector.el b/cider-inspector.el index e7702771..61d5007d 100644 --- a/cider-inspector.el +++ b/cider-inspector.el @@ -84,6 +84,7 @@ The page size can be also changed interactively within the inspector." \\{cider-inspector-mode-map}" (set-syntax-table clojure-mode-syntax-table) (setq-local electric-indent-chars nil) + (setq-local sesman-system 'CIDER) (when cider-special-mode-truncate-lines (setq-local truncate-lines t))) diff --git a/cider-repl-history.el b/cider-repl-history.el index 4ec51da5..f6cd4c86 100644 --- a/cider-repl-history.el +++ b/cider-repl-history.el @@ -692,6 +692,7 @@ text from the *cider-repl-history* buffer." "Major mode for browsing the entries in the command input history. \\{cider-repl-history-mode-map}" + (setq-local sesman-system 'CIDER) (define-key cider-repl-history-mode-map (kbd "n") 'cider-repl-history-forward) (define-key cider-repl-history-mode-map (kbd "p") 'cider-repl-history-previous) (define-key cider-repl-history-mode-map (kbd "SPC") 'cider-repl-history-insert-and-quit) diff --git a/cider-scratch.el b/cider-scratch.el index 8dce4b27..f1c3e93d 100644 --- a/cider-scratch.el +++ b/cider-scratch.el @@ -73,7 +73,8 @@ Like clojure-mode except that \\[cider-eval-print-last-sexp] evals the Lisp expression before point, and prints its value into the buffer, advancing point. -\\{cider-clojure-interaction-mode-map}") +\\{cider-clojure-interaction-mode-map}" + (setq-local sesman-system 'CIDER)) (defun cider-scratch--insert-welcome-message () "Insert the welcome message for the scratch buffer." diff --git a/cider-stacktrace.el b/cider-stacktrace.el index 061ba34b..5daed06c 100644 --- a/cider-stacktrace.el +++ b/cider-stacktrace.el @@ -235,6 +235,7 @@ The error types are represented as strings." \\{cider-stacktrace-mode-map}" (when cider-special-mode-truncate-lines (setq-local truncate-lines t)) + (setq-local sesman-system 'CIDER) (setq-local electric-indent-chars nil) (setq-local cider-stacktrace-hidden-frame-count 0) (setq-local cider-stacktrace-filters cider-stacktrace-default-filters) diff --git a/cider-test.el b/cider-test.el index d62b6c82..29d5e518 100644 --- a/cider-test.el +++ b/cider-test.el @@ -224,6 +224,7 @@ Add to this list to have CIDER recognize additional test defining macros." (setq buffer-read-only t) (when cider-special-mode-truncate-lines (setq-local truncate-lines t)) + (setq-local sesman-system 'CIDER) (setq-local electric-indent-chars nil)) ;; Report navigation @@ -1233,7 +1233,8 @@ assume the command is available." (define-key clojure-mode-map (kbd "C-c C-x") 'cider-start-map) (define-key clojure-mode-map (kbd "C-c C-s") 'sesman-map) (require 'sesman) - (sesman-install-menu clojure-mode-map))) + (sesman-install-menu clojure-mode-map) + (add-hook 'clojure-mode-hook (lambda () (setq-local sesman-system 'CIDER))))) (provide 'cider) diff --git a/nrepl-client.el b/nrepl-client.el index 5fa572e2..8415a600 100644 --- a/nrepl-client.el +++ b/nrepl-client.el @@ -1136,6 +1136,7 @@ operations.") \\{nrepl-messages-mode-map}" (when cider-special-mode-truncate-lines (setq-local truncate-lines t)) + (setq-local sesman-system 'CIDER) (setq-local electric-indent-chars nil) (setq-local comment-start ";") (setq-local comment-end "") |