aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/electric.el
diff options
context:
space:
mode:
authorStefan Monnier2014-03-03 23:03:34 -0500
committerStefan Monnier2014-03-03 23:03:34 -0500
commit8d4901dc71b59fce4fd2d1591da120270a6bbabb (patch)
treef96b4a92497b06de842e2edab72f77ce7381b4a7 /lisp/electric.el
parent092c12b25324229235b5fdb6ceaac08b4114603c (diff)
downloademacs-8d4901dc71b59fce4fd2d1591da120270a6bbabb.tar.gz
emacs-8d4901dc71b59fce4fd2d1591da120270a6bbabb.zip
* lisp/electric.el (electric-indent-mode-has-been-called): Remove.
(electric-indent-mode): Fix accordingly. * lisp/progmodes/cc-mode.el (c-initialize-cc-mode): Only hook into electric-indent-mode-hook if we obey electric-indent-mode. (c-basic-common-init): Use (fboundp 'electric-indent-local-mode) to decide whether we obey electric-indent-mode. (c-change-set-fl-decl-start, c-extend-after-change-region): Silence warnings. (c-electric-indent-mode-hook): Assume we do want to obey electric-indent-mode.
Diffstat (limited to 'lisp/electric.el')
-rw-r--r--lisp/electric.el6
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/electric.el b/lisp/electric.el
index 992553685e2..3e19d9b23b1 100644
--- a/lisp/electric.el
+++ b/lisp/electric.el
@@ -286,9 +286,7 @@ mode set `electric-indent-inhibit', but this can be used as a workaround.")
286 (let ((electric-indent-mode nil)) 286 (let ((electric-indent-mode nil))
287 (newline arg 'interactive))) 287 (newline arg 'interactive)))
288 288
289(defvar electric-indent-mode-has-been-called 0 289
290 "How many times has `electric-indent-mode' been called?
291It's > 1 if it's been called at least once by the user.")
292;;;###autoload 290;;;###autoload
293(define-minor-mode electric-indent-mode 291(define-minor-mode electric-indent-mode
294 "Toggle on-the-fly reindentation (Electric Indent mode). 292 "Toggle on-the-fly reindentation (Electric Indent mode).
@@ -302,8 +300,6 @@ insert a character from `electric-indent-chars'."
302 :global t :group 'electricity 300 :global t :group 'electricity
303 :initialize 'custom-initialize-delay 301 :initialize 'custom-initialize-delay
304 :init-value t 302 :init-value t
305 (setq electric-indent-mode-has-been-called
306 (1+ electric-indent-mode-has-been-called))
307 (if (not electric-indent-mode) 303 (if (not electric-indent-mode)
308 (progn 304 (progn
309 (when (eq (lookup-key global-map [?\C-j]) 305 (when (eq (lookup-key global-map [?\C-j])