diff options
-rw-r--r-- | cider-ns.el | 12 | ||||
-rw-r--r-- | cider-stacktrace.el | 2 |
2 files changed, 5 insertions, 9 deletions
diff --git a/cider-ns.el b/cider-ns.el index ec34e7d5..3ba96c32 100644 --- a/cider-ns.el +++ b/cider-ns.el @@ -33,6 +33,7 @@ (require 'cider-popup) (require 'cider-stacktrace) +(define-obsolete-variable-alias 'cider-save-files-on-cider-ns-refresh 'cider-ns-save-files-on-refresh "0.18") (defcustom cider-ns-save-files-on-refresh 'prompt "Controls whether to prompt to save Clojure files on `cider-ns-refresh'. If nil, files are not saved. @@ -44,10 +45,9 @@ If t, save the files without confirmation." :group 'cider :package-version '(cider . "0.15.0")) -(define-obsolete-variable-alias 'cider-save-files-on-cider-ns-refresh 'cider-ns-save-files-on-refresh "0.18") - (defconst cider-ns-refresh-log-buffer "*cider-ns-refresh-log*") +(define-obsolete-variable-alias 'cider-refresh-show-log-buffer 'cider-ns-refresh-show-log-buffer "0.18") (defcustom cider-ns-refresh-show-log-buffer nil "Controls when to display the refresh log buffer. If non-nil, the log buffer will be displayed every time `cider-ns-refresh' is @@ -59,8 +59,7 @@ displayed in the echo area." :group 'cider :package-version '(cider . "0.10.0")) -(define-obsolete-variable-alias 'cider-refresh-show-log-buffer 'cider-ns-refresh-show-log-buffer "0.18") - +(define-obsolete-variable-alias 'cider-refresh-before-fn 'cider-ns-refresh-before-fn "0.18") (defcustom cider-ns-refresh-before-fn nil "Clojure function for `cider-ns-refresh' to call before reloading. If nil, nothing will be invoked before reloading. Must be a @@ -70,8 +69,7 @@ prevent reloading from occurring." :group 'cider :package-version '(cider . "0.10.0")) -(define-obsolete-variable-alias 'cider-refresh-before-fn 'cider-ns-refresh-before-fn "0.18") - +(define-obsolete-variable-alias 'cider-refresh-after-fn 'cider-ns-refresh-after-fn "0.18") (defcustom cider-ns-refresh-after-fn nil "Clojure function for `cider-ns-refresh' to call after reloading. If nil, nothing will be invoked after reloading. Must be a @@ -80,8 +78,6 @@ namespace-qualified function of zero arity." :group 'cider :package-version '(cider . "0.10.0")) -(define-obsolete-variable-alias 'cider-refresh-after-fn 'cider-ns-refresh-after-fn "0.18") - (defun cider-ns-refresh--handle-response (response log-buffer) "Refresh LOG-BUFFER with RESPONSE." (nrepl-dbind-response response (out err reloading status error error-ns after before) diff --git a/cider-stacktrace.el b/cider-stacktrace.el index 94234b34..321d4bbd 100644 --- a/cider-stacktrace.el +++ b/cider-stacktrace.el @@ -601,7 +601,7 @@ prompt and whether to use a new window. Similar to `cider-find-var'." ;; Rendering - +(defvar cider-use-tooltips) (defun cider-stacktrace-tooltip (tooltip) "Return TOOLTIP if `cider-use-tooltips' is set to true, nil otherwise." (when cider-use-tooltips tooltip)) |