diff options
| author | Stefan Monnier | 2014-10-15 13:32:41 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2014-10-15 13:32:41 -0400 |
| commit | dcdf2bd8d690168eed44563651e2d8f379b9c80e (patch) | |
| tree | 5de46491f3995fbf10f56c780370f6bf00815a13 | |
| parent | f65b226e7abf1e746d9f6a995bf7db3da1997795 (diff) | |
| download | emacs-dcdf2bd8d690168eed44563651e2d8f379b9c80e.tar.gz emacs-dcdf2bd8d690168eed44563651e2d8f379b9c80e.zip | |
* lisp/emacs-lisp/eldoc.el (global-eldoc-mode): Enable by default.
Remove incorrect handling of eldoc-print-after-edit.
(eldoc-message-commands, eldoc-last-data): Use defvar.
* lisp/loadup.el (emacs-lisp/eldoc): Load it.
* src/lisp.mk (lisp): Add emacs-lisp/eldoc.elc.
| -rw-r--r-- | etc/NEWS | 2 | ||||
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/eldoc.el | 17 | ||||
| -rw-r--r-- | lisp/loadup.el | 1 | ||||
| -rw-r--r-- | src/ChangeLog | 23 | ||||
| -rw-r--r-- | src/lisp.mk | 1 |
6 files changed, 30 insertions, 19 deletions
| @@ -103,6 +103,8 @@ this has no effect. | |||
| 103 | 103 | ||
| 104 | * Editing Changes in Emacs 25.1 | 104 | * Editing Changes in Emacs 25.1 |
| 105 | 105 | ||
| 106 | ** New minor mode global-eldoc-mode is enabled by default. | ||
| 107 | |||
| 106 | ** Emacs now supports "bracketed paste mode" when running on a terminal | 108 | ** Emacs now supports "bracketed paste mode" when running on a terminal |
| 107 | that supports it. This facility allows Emacs to understand pasted | 109 | that supports it. This facility allows Emacs to understand pasted |
| 108 | chunks of text as strings to be inserted, instead of interpreting each | 110 | chunks of text as strings to be inserted, instead of interpreting each |
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 610cf6f8670..cf83767b924 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,10 @@ | |||
| 1 | 2014-10-15 Stefan Monnier <monnier@iro.umontreal.ca> | 1 | 2014-10-15 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 2 | ||
| 3 | * emacs-lisp/eldoc.el (global-eldoc-mode): Enable by default. | ||
| 4 | Remove incorrect handling of eldoc-print-after-edit. | ||
| 5 | (eldoc-message-commands, eldoc-last-data): Use defvar. | ||
| 6 | * loadup.el (emacs-lisp/eldoc): Load it. | ||
| 7 | |||
| 3 | * progmodes/m4-mode.el (m4-syntax-propertize): New var. | 8 | * progmodes/m4-mode.el (m4-syntax-propertize): New var. |
| 4 | (m4-mode): Use it. | 9 | (m4-mode): Use it. |
| 5 | (m4--quoted-p): New function. | 10 | (m4--quoted-p): New function. |
diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el index 7245989c4b0..6dddf5b9a40 100644 --- a/lisp/emacs-lisp/eldoc.el +++ b/lisp/emacs-lisp/eldoc.el | |||
| @@ -47,9 +47,6 @@ | |||
| 47 | 47 | ||
| 48 | ;;; Code: | 48 | ;;; Code: |
| 49 | 49 | ||
| 50 | (require 'help-fns) ;For fundoc-usage handling functions. | ||
| 51 | (require 'cl-lib) | ||
| 52 | |||
| 53 | (defgroup eldoc nil | 50 | (defgroup eldoc nil |
| 54 | "Show function arglist or variable docstring in echo area." | 51 | "Show function arglist or variable docstring in echo area." |
| 55 | :group 'lisp | 52 | :group 'lisp |
| @@ -129,7 +126,8 @@ choose to increase the number of buckets, you must do so before loading | |||
| 129 | this file since the obarray is initialized at load time. | 126 | this file since the obarray is initialized at load time. |
| 130 | Remember to keep it a prime number to improve hash performance.") | 127 | Remember to keep it a prime number to improve hash performance.") |
| 131 | 128 | ||
| 132 | (defconst eldoc-message-commands | 129 | (defvar eldoc-message-commands |
| 130 | ;; Don't define as `defconst' since it would then go to (read-only) purespace. | ||
| 133 | (make-vector eldoc-message-commands-table-size 0) | 131 | (make-vector eldoc-message-commands-table-size 0) |
| 134 | "Commands after which it is appropriate to print in the echo area. | 132 | "Commands after which it is appropriate to print in the echo area. |
| 135 | ElDoc does not try to print function arglists, etc., after just any command, | 133 | ElDoc does not try to print function arglists, etc., after just any command, |
| @@ -140,12 +138,14 @@ This variable contains an obarray of symbols; do not manipulate it | |||
| 140 | directly. Instead, use `eldoc-add-command' and `eldoc-remove-command'.") | 138 | directly. Instead, use `eldoc-add-command' and `eldoc-remove-command'.") |
| 141 | 139 | ||
| 142 | ;; Not a constant. | 140 | ;; Not a constant. |
| 143 | (defconst eldoc-last-data (make-vector 3 nil) | 141 | (defvar eldoc-last-data (make-vector 3 nil) |
| 142 | ;; Don't define as `defconst' since it would then go to (read-only) purespace. | ||
| 144 | "Bookkeeping; elements are as follows: | 143 | "Bookkeeping; elements are as follows: |
| 145 | 0 - contains the last symbol read from the buffer. | 144 | 0 - contains the last symbol read from the buffer. |
| 146 | 1 - contains the string last displayed in the echo area for variables, | 145 | 1 - contains the string last displayed in the echo area for variables, |
| 147 | or argument string for functions. | 146 | or argument string for functions. |
| 148 | 2 - 'function if function args, 'variable if variable documentation.") | 147 | 2 - `function' if function args, `variable' if variable documentation.") |
| 148 | (make-obsolete-variable 'eldoc-last-data "use your own instead" "25.1") | ||
| 149 | 149 | ||
| 150 | (defvar eldoc-last-message nil) | 150 | (defvar eldoc-last-message nil) |
| 151 | 151 | ||
| @@ -203,14 +203,13 @@ expression point is on." | |||
| 203 | (define-minor-mode global-eldoc-mode | 203 | (define-minor-mode global-eldoc-mode |
| 204 | "Enable `eldoc-mode' in all buffers where it's applicable." | 204 | "Enable `eldoc-mode' in all buffers where it's applicable." |
| 205 | :group 'eldoc :global t | 205 | :group 'eldoc :global t |
| 206 | :initialize 'custom-initialize-delay | ||
| 207 | :init-value t | ||
| 206 | (setq eldoc-last-message nil) | 208 | (setq eldoc-last-message nil) |
| 207 | (if global-eldoc-mode | 209 | (if global-eldoc-mode |
| 208 | (progn | 210 | (progn |
| 209 | (when eldoc-print-after-edit | ||
| 210 | (setq-local eldoc-message-commands (eldoc-edit-message-commands))) | ||
| 211 | (add-hook 'post-command-hook #'eldoc-schedule-timer) | 211 | (add-hook 'post-command-hook #'eldoc-schedule-timer) |
| 212 | (add-hook 'pre-command-hook #'eldoc-pre-command-refresh-echo-area)) | 212 | (add-hook 'pre-command-hook #'eldoc-pre-command-refresh-echo-area)) |
| 213 | (kill-local-variable 'eldoc-message-commands) | ||
| 214 | (remove-hook 'post-command-hook #'eldoc-schedule-timer) | 213 | (remove-hook 'post-command-hook #'eldoc-schedule-timer) |
| 215 | (remove-hook 'pre-command-hook #'eldoc-pre-command-refresh-echo-area))) | 214 | (remove-hook 'pre-command-hook #'eldoc-pre-command-refresh-echo-area))) |
| 216 | 215 | ||
diff --git a/lisp/loadup.el b/lisp/loadup.el index fd34648bb30..421c3d5bf3e 100644 --- a/lisp/loadup.el +++ b/lisp/loadup.el | |||
| @@ -282,6 +282,7 @@ | |||
| 282 | (load "vc/ediff-hook") | 282 | (load "vc/ediff-hook") |
| 283 | (load "uniquify") | 283 | (load "uniquify") |
| 284 | (load "electric") | 284 | (load "electric") |
| 285 | (load "emacs-lisp/eldoc") | ||
| 285 | (if (not (eq system-type 'ms-dos)) (load "tooltip")) | 286 | (if (not (eq system-type 'ms-dos)) (load "tooltip")) |
| 286 | 287 | ||
| 287 | ;; This file doesn't exist when building a development version of Emacs | 288 | ;; This file doesn't exist when building a development version of Emacs |
diff --git a/src/ChangeLog b/src/ChangeLog index b6f9401acf7..611e459d2a8 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,18 +1,21 @@ | |||
| 1 | 2014-10-15 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * lisp.mk (lisp): Add emacs-lisp/eldoc.elc. | ||
| 4 | |||
| 1 | 2014-10-15 Eli Zaretskii <eliz@gnu.org> | 5 | 2014-10-15 Eli Zaretskii <eliz@gnu.org> |
| 2 | 6 | ||
| 3 | Update the bidirectional reordering engine for Unicode 6.3 and 7.0. | 7 | Update the bidirectional reordering engine for Unicode 6.3 and 7.0. |
| 4 | * bidi.c (bidi_ignore_explicit_marks_for_paragraph_level): Remove | 8 | * bidi.c (bidi_ignore_explicit_marks_for_paragraph_level): |
| 5 | variable. | 9 | Remove variable. |
| 6 | (bidi_get_type): Return the isolate initiators and terminator | 10 | (bidi_get_type): Return the isolate initiators and terminator types. |
| 7 | types. | ||
| 8 | (bidi_isolate_fmt_char, bidi_paired_bracket_type) | 11 | (bidi_isolate_fmt_char, bidi_paired_bracket_type) |
| 9 | (bidi_fetch_char_skip_isolates, find_first_strong_char) | 12 | (bidi_fetch_char_skip_isolates, find_first_strong_char) |
| 10 | (bidi_find_bracket_pairs, bidi_resolve_brackets): New functions. | 13 | (bidi_find_bracket_pairs, bidi_resolve_brackets): New functions. |
| 11 | (bidi_set_sos_type): Renamed from bidi_set_sor_type and updated | 14 | (bidi_set_sos_type): Rename from bidi_set_sor_type and updated |
| 12 | for the new features. | 15 | for the new features. |
| 13 | (bidi_push_embedding_level, bidi_pop_embedding_level): Update to | 16 | (bidi_push_embedding_level, bidi_pop_embedding_level): Update to |
| 14 | push and pop correctly for isolates. | 17 | push and pop correctly for isolates. |
| 15 | (bidi_remember_char): Modified to accept an additional argument | 18 | (bidi_remember_char): Modify to accept an additional argument |
| 16 | and record the bidi type according to its value. | 19 | and record the bidi type according to its value. |
| 17 | (bidi_cache_iterator_state): Accept an additional argument to only | 20 | (bidi_cache_iterator_state): Accept an additional argument to only |
| 18 | update an existing state. Handle the new members of struct bidi_it. | 21 | update an existing state. Handle the new members of struct bidi_it. |
| @@ -140,8 +143,8 @@ | |||
| 140 | (ns_dumpglyphs_image, ns_check_menu_open) | 143 | (ns_dumpglyphs_image, ns_check_menu_open) |
| 141 | (applicationDidFinishLaunching) | 144 | (applicationDidFinishLaunching) |
| 142 | (antialiasThresholdDidChange:) | 145 | (antialiasThresholdDidChange:) |
| 143 | (keyDown:, toggleFullScreen:, setPosition:portion:whole:): Remove | 146 | (keyDown:, toggleFullScreen:, setPosition:portion:whole:): |
| 144 | checks for OSX <= 10.5/10.6. | 147 | Remove checks for OSX <= 10.5/10.6. |
| 145 | (changeFont:): Use macfont on COCOA, nsfont on GNUSTEP. | 148 | (changeFont:): Use macfont on COCOA, nsfont on GNUSTEP. |
| 146 | (syms_of_nsterm): Call syms_of_macfont on COCOA, syms_of_nsfont on | 149 | (syms_of_nsterm): Call syms_of_macfont on COCOA, syms_of_nsfont on |
| 147 | GNUSTEP. | 150 | GNUSTEP. |
| @@ -166,8 +169,8 @@ | |||
| 166 | (macfont_create_family_with_symbol) | 169 | (macfont_create_family_with_symbol) |
| 167 | (macfont_get_glyph_for_character) | 170 | (macfont_get_glyph_for_character) |
| 168 | (mac_font_get_glyphs_for_variants) | 171 | (mac_font_get_glyphs_for_variants) |
| 169 | (mac_ctfont_create_available_families, syms_of_macfont): Remove | 172 | (mac_ctfont_create_available_families, syms_of_macfont): |
| 170 | code for OSX < 10.6. | 173 | Remove code for OSX < 10.6. |
| 171 | (mac_font_family_group, mac_font_family_compare): Remove, only used | 174 | (mac_font_family_group, mac_font_family_compare): Remove, only used |
| 172 | for OSX < 10.6. | 175 | for OSX < 10.6. |
| 173 | 176 | ||
diff --git a/src/lisp.mk b/src/lisp.mk index 642e9af225f..675df2b66e6 100644 --- a/src/lisp.mk +++ b/src/lisp.mk | |||
| @@ -165,6 +165,7 @@ lisp = \ | |||
| 165 | $(lispsource)/vc/vc-hooks.elc \ | 165 | $(lispsource)/vc/vc-hooks.elc \ |
| 166 | $(lispsource)/vc/ediff-hook.elc \ | 166 | $(lispsource)/vc/ediff-hook.elc \ |
| 167 | $(lispsource)/electric.elc \ | 167 | $(lispsource)/electric.elc \ |
| 168 | $(lispsource)/emacs-lisp/eldoc.elc \ | ||
| 168 | $(lispsource)/uniquify.elc \ | 169 | $(lispsource)/uniquify.elc \ |
| 169 | $(lispsource)/tooltip.elc | 170 | $(lispsource)/tooltip.elc |
| 170 | 171 | ||