diff options
| author | Paul Eggert | 2011-03-06 02:53:51 -0800 |
|---|---|---|
| committer | Paul Eggert | 2011-03-06 02:53:51 -0800 |
| commit | 5f349a895b72500a6a33d6610195f7141cf8252f (patch) | |
| tree | bb1207756d00ad0133f8299ebe95c56ceda97213 /src/keymap.c | |
| parent | 1e12733b25bfa52650157c34fc30a9c7fe1d5b4c (diff) | |
| parent | 7831777b8a9e8d2f68bd17058359ea8849d66f70 (diff) | |
| download | emacs-5f349a895b72500a6a33d6610195f7141cf8252f.tar.gz emacs-5f349a895b72500a6a33d6610195f7141cf8252f.zip | |
Merge: current_column: Now returns EMACS_INT, fixing some iftc
that was introduced in the 2002-06-02 change "temporarily"; see
<http://lists.gnu.org/archive/html/emacs-devel/2002-06/msg00039.html>.
* bytecode.c (Fbyte_code): Don't cast current_column () to int.
* cmds.c (internal_self_insert): Likewise.
* indent.c (Fcurrent_column): Likewise.
* keymap.c (describe_command): Likewise.
* minibuf.c (read_minibuf): Likewise.
* indent.c (Fcurrent_indentation): Don't cast position_indentation ()
to int.
* xdisp.c (redisplay_internal, redisplay_window, decode_mode_spec):
Likewise.
* cmds.c (internal_self_insert): Declare locals to be EMACS_INT,
not int or double, if they might contain a column number.
* indent.c (current_column, Findent_to, indented_beyond_p):
(compute_motion, vmotion): Likewise.
* keymap.c (describe_command): Likewise.
* xdisp.c (pint2str): Likewise.
* indent.c (last_known_column): Now EMACS_INT, not int.
* minibuf.c (minibuf_prompt_width): Likewise.
* indent.c (current_column, current_column_1, position_indentation):
Return EMACS_INT, not double.
* lisp.h (current_column): Likewise.
* indent.c (indented_beyond_p): Last arg is now EMACS_INT, not double.
All callers changed.
* lisp.h (indented_beyond_p): Likewise.
* minibuf.c (minibuf_prompt, minibuf_prompt_width): Move here
from xdisp.c, and make static, since these are used only here.
* window.h, xdisp.c (minibuf_prompt, minibuf_prompt_width):
Remove decls.
* xdisp.c (redisplay_window): Reindent to match Emacs style.
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/keymap.c b/src/keymap.c index 1fbb40f1270..4459ef07d68 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -3219,7 +3219,7 @@ static void | |||
| 3219 | describe_command (Lisp_Object definition, Lisp_Object args) | 3219 | describe_command (Lisp_Object definition, Lisp_Object args) |
| 3220 | { | 3220 | { |
| 3221 | register Lisp_Object tem1; | 3221 | register Lisp_Object tem1; |
| 3222 | int column = (int) current_column (); /* iftc */ | 3222 | EMACS_INT column = current_column (); |
| 3223 | int description_column; | 3223 | int description_column; |
| 3224 | 3224 | ||
| 3225 | /* If column 16 is no good, go to col 32; | 3225 | /* If column 16 is no good, go to col 32; |