diff options
| author | Stefan Monnier | 2014-03-03 23:03:34 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2014-03-03 23:03:34 -0500 |
| commit | 8d4901dc71b59fce4fd2d1591da120270a6bbabb (patch) | |
| tree | f96b4a92497b06de842e2edab72f77ce7381b4a7 /lisp/electric.el | |
| parent | 092c12b25324229235b5fdb6ceaac08b4114603c (diff) | |
| download | emacs-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.el | 6 |
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? | ||
| 291 | It'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]) |