From 78edd3b72d7d7e006db5aac8c5f0514777d6e01c Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 3 Jun 2010 17:34:35 +0200 Subject: [PATCH] Fix typos. --- lisp/ChangeLog | 2 +- lisp/descr-text.el | 2 +- lisp/emulation/cua-rect.el | 2 +- lisp/international/mule-cmds.el | 4 +- lisp/international/mule-util.el | 2 +- lisp/mail/rmail-spam-filter.el | 2 +- src/ChangeLog | 4 ++ src/ccl.c | 10 ++-- src/character.h | 6 +- src/fns.c | 5 +- src/fringe.c | 2 +- src/lisp.h | 99 ++++++++++++++++----------------- src/regex.c | 6 +- src/search.c | 8 +-- 14 files changed, 79 insertions(+), 75 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 17f6973dff4..16111657832 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -91,7 +91,7 @@ * composite.el (compose-region, reference-point-alist): Fix typos in the doc strings. -2010-04-28 Alexander Klimov (tiny change) +2010-04-28 Alexander Klimov (tiny change) * calc/calc-graph.el (calc-graph-plot): Use the proper form for gnuplot's "set" command. diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 36ee08dcef8..218f2a51d7f 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -426,7 +426,7 @@ as well as widgets, buttons, overlays, and text properties." ;; When the composition is trivial (i.e. composed only with the ;; current character itself without any alternate characters), ;; we don't show the composition information. Otherwise, store - ;; two descriptive strings in the first two elments of + ;; two descriptive strings in the first two elements of ;; COMPOSITION. (or (catch 'tag (let ((from (car composition)) diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el index 4398b5aa1af..a59e0f24c7f 100644 --- a/lisp/emulation/cua-rect.el +++ b/lisp/emulation/cua-rect.el @@ -231,7 +231,7 @@ (move-to-column mc) (set-mark (point)) (goto-char pp) - ;; Move cursor inside rectangle, except if char at rigth edge is a tab. + ;; Move cursor inside rectangle, except if char at right edge is a tab. (if (and (if (cua--rectangle-right-side) (and (= (move-to-column pc) (- pc tab-width)) (not (eolp))) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index a594b837e0b..008a59531fc 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -2902,9 +2902,9 @@ on encoding." (#xFB00 . #xFFFD))) (upper-ranges '((#x10000 . #x134FF) - ;; (#x13500 . #x1CFFF) unsed + ;; (#x13500 . #x1CFFF) unused (#x1D000 . #x1FFFF) - ;; (#x20000 . #xDFFFF) CJK Ideograph Extension A, B, etc, unsed + ;; (#x20000 . #xDFFFF) CJK Ideograph Extension A, B, etc, unused (#xE0000 . #xE01FF))) (gc-cons-threshold 10000000) c end name names) diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el index da9baef266c..5f4af36be35 100644 --- a/lisp/international/mule-util.el +++ b/lisp/international/mule-util.el @@ -1,4 +1,4 @@ -;;; mule-util.el --- utility functions for mulitilingual environment (mule) +;;; mule-util.el --- utility functions for multilingual environment (mule) ;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. diff --git a/lisp/mail/rmail-spam-filter.el b/lisp/mail/rmail-spam-filter.el index bf3bfd00842..a3eee899a68 100644 --- a/lisp/mail/rmail-spam-filter.el +++ b/lisp/mail/rmail-spam-filter.el @@ -414,7 +414,7 @@ message%s" ;; to make sure message-subject is actually evaluated and its value ;; substituted. (add-to-list 'rsf-definitions-alist - ;; Note that an empty elment is treated the same as + ;; Note that an empty element is treated the same as ;; an absent one, so why does it bother to add them? (list '(from . "") '(to . "") diff --git a/src/ChangeLog b/src/ChangeLog index 4e0b04def0c..5ce7e4a11b2 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2010-06-03 Juanma Barranquero + + * ccl.c (Fccl_program_p): Fix typo in docstring. + 2010-05-31 Stefan Monnier * keymap.c (Fwhere_is_internal): Fix handling of remapping (in thread diff --git a/src/ccl.c b/src/ccl.c index c5523c2d44f..c33df9e56de 100644 --- a/src/ccl.c +++ b/src/ccl.c @@ -1362,7 +1362,7 @@ ccl_driver (ccl, source, destination, src_size, dst_size, charset_list) if (point >= size) continue; map = AREF (Vcode_conversion_map_vector, point); - /* Check map varidity. */ + /* Check map validity. */ if (!CONSP (map)) continue; map = XCDR (map); if (!VECTORP (map)) continue; @@ -1373,7 +1373,7 @@ ccl_driver (ccl, source, destination, src_size, dst_size, charset_list) /* check map type, [STARTPOINT VAL1 VAL2 ...] or - [t ELELMENT STARTPOINT ENDPOINT] */ + [t ELEMENT STARTPOINT ENDPOINT] */ if (NUMBERP (content)) { point = XUINT (content); @@ -1535,7 +1535,7 @@ ccl_driver (ccl, source, destination, src_size, dst_size, charset_list) if (point >= map_vector_size) continue; map = AREF (Vcode_conversion_map_vector, point); - /* Check map varidity. */ + /* Check map validity. */ if (!CONSP (map)) continue; map = XCDR (map); if (!VECTORP (map)) continue; @@ -1977,7 +1977,7 @@ check_ccl_update (ccl) DEFUN ("ccl-program-p", Fccl_program_p, Sccl_program_p, 1, 1, 0, doc: /* Return t if OBJECT is a CCL program name or a compiled CCL program code. -See the documentation of `define-ccl-program' for the detail of CCL program. */) +See the documentation of `define-ccl-program' for the detail of CCL program. */) (object) Lisp_Object object; { @@ -2229,7 +2229,7 @@ Return index number of the registered CCL program. */) slot = AREF (Vccl_program_table, idx); if (!VECTORP (slot)) - /* This is the first unsed slot. Register NAME here. */ + /* This is the first unused slot. Register NAME here. */ break; if (EQ (name, AREF (slot, 0))) diff --git a/src/character.h b/src/character.h index 1f1f6eade84..dee846dbb9a 100644 --- a/src/character.h +++ b/src/character.h @@ -285,7 +285,7 @@ along with GNU Emacs. If not, see . */ /* If P is before LIMIT, advance P to the next character boundary. Assumes that P is already at a character boundary of the same - mulitbyte form whose end address is LIMIT. */ + multibyte form whose end address is LIMIT. */ #define NEXT_CHAR_BOUNDARY(p, limit) \ do { \ @@ -296,7 +296,7 @@ along with GNU Emacs. If not, see . */ /* If P is after LIMIT, advance P to the previous character boundary. Assumes that P is already at a character boundary of the same - mulitbyte form whose beginning address is LIMIT. */ + multibyte form whose beginning address is LIMIT. */ #define PREV_CHAR_BOUNDARY(p, limit) \ do { \ @@ -608,7 +608,7 @@ along with GNU Emacs. If not, see . */ : 0) /* If C is a high surrogate, return 1. If C is a low surrogate, - return 0. Otherwise, return 0. */ + return 0. Otherwise, return 0. */ #define CHAR_SURROGATE_PAIR_P(c) \ ((c) < 0xD800 ? 0 \ diff --git a/src/fns.c b/src/fns.c index 0100ff228f2..7e6001e947c 100644 --- a/src/fns.c +++ b/src/fns.c @@ -1,7 +1,8 @@ /* Random utility Lisp functions. Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, - 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. + 2005, 2006, 2007, 2008, 2009, 2010 + Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -522,7 +523,7 @@ concat (nargs, args, target_type, last_special) So, we record strings that have text properties to be copied here, and copy the text properties after the concatination. */ struct textprop_rec *textprops = NULL; - /* Number of elments in textprops. */ + /* Number of elements in textprops. */ int num_textprops = 0; USE_SAFE_ALLOCA; diff --git a/src/fringe.c b/src/fringe.c index 952e95a5517..ded19933e5e 100644 --- a/src/fringe.c +++ b/src/fringe.c @@ -730,7 +730,7 @@ get_logical_fringe_bitmap (w, bitmap, right_p, partial_p) Elements are: BITMAP -- use for all (L R) -- use for left right (whether partial or not) - (L R PL PR) -- use for left rigth partial-left partial-right + (L R PL PR) -- use for left right partial-left partial-right If any value in local binding is not present or t, use global value. If partial, lookup partial bitmap in default value if not found here. diff --git a/src/lisp.h b/src/lisp.h index 6cbf35c7880..5f0b3a700f7 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -930,7 +930,7 @@ struct Lisp_Sub_Char_Table struct Lisp_Vector *next; /* Depth of this sub char-table. It should be 1, 2, or 3. A sub - char-table of depth 1 contains 16 elments, and each element + char-table of depth 1 contains 16 elements, and each element covers 4096 (128*32) characters. A sub char-table of depth 2 contains 32 elements, and each element covers 128 characters. A sub char-table of depth 3 contains 128 elements, and each element @@ -1120,7 +1120,7 @@ struct Lisp_Hash_Table Lisp_Object user_cmp_function; /* Only the fields above are traced normally by the GC. The ones below - `count'. are special and are either ignored by the GC or traced in + `count' are special and are either ignored by the GC or traced in a special way (e.g. because of weakness). */ /* Number of key/value entries in the table. */ @@ -1310,9 +1310,9 @@ struct Lisp_Buffer_Objfwd binding into `realvalue' (or through it). Also update LOADED-BINDING to point to the newly loaded binding. - `local_if_set' indicates that merely setting the variable creates a local - binding for the current buffer. Otherwise the latter, setting the - variable does not do that; only make-local-variable does that. */ + `local_if_set' indicates that merely setting the variable creates a + local binding for the current buffer. Otherwise the latter, setting + the variable does not do that; only make-local-variable does that. */ struct Lisp_Buffer_Local_Value { @@ -1631,7 +1631,7 @@ typedef struct { #define CHECK_VECTOR_OR_STRING(x) \ CHECK_TYPE (VECTORP (x) || STRINGP (x), Qarrayp, x) -#define CHECK_ARRAY(x, Qxxxp) \ +#define CHECK_ARRAY(x, Qxxxp) \ CHECK_TYPE (ARRAYP (x), Qxxxp, x) #define CHECK_VECTOR_OR_CHAR_TABLE(x) \ @@ -1677,14 +1677,14 @@ typedef struct { #define XFLOATINT(n) extract_float((n)) -#define CHECK_FLOAT(x) \ +#define CHECK_FLOAT(x) \ CHECK_TYPE (FLOATP (x), Qfloatp, x) -#define CHECK_NUMBER_OR_FLOAT(x) \ +#define CHECK_NUMBER_OR_FLOAT(x) \ CHECK_TYPE (FLOATP (x) || INTEGERP (x), Qnumberp, x) #define CHECK_NUMBER_OR_FLOAT_COERCE_MARKER(x) \ - do { if (MARKERP (x)) XSETFASTINT (x, marker_position (x)); \ + do { if (MARKERP (x)) XSETFASTINT (x, marker_position (x)); \ else CHECK_TYPE (INTEGERP (x) || FLOATP (x), Qnumber_or_marker_p, x); } while (0) #define CHECK_OVERLAY(x) \ @@ -1774,8 +1774,8 @@ typedef struct { Lisp_Object, Lisp_Object, Lisp_Object) #define DEFUN_ARGS_8 (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, \ Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object) -/* Non-zero if OBJ is a Lisp function. */ +/* Non-zero if OBJ is a Lisp function. */ #define FUNCTIONP(OBJ) \ ((CONSP (OBJ) && EQ (XCAR (OBJ), Qlambda)) \ || (SYMBOLP (OBJ) && !NILP (Ffboundp (OBJ))) \ @@ -1824,12 +1824,11 @@ extern void defvar_kboard (const char *, int); If the symbol field is a symbol, it is an ordinary variable binding. - Otherwise, it should be a structure (SYMBOL WHERE - . CURRENT-BUFFER), which means having bound a local value while - CURRENT-BUFFER was active. If WHERE is nil this means we saw the - default value when binding SYMBOL. WHERE being a buffer or frame - means we saw a buffer-local or frame-local value. Other values of - WHERE mean an internal error. */ + Otherwise, it should be a structure (SYMBOL WHERE . CURRENT-BUFFER), + which means having bound a local value while CURRENT-BUFFER was active. + If WHERE is nil this means we saw the default value when binding SYMBOL. + WHERE being a buffer or frame means we saw a buffer-local or frame-local + value. Other values of WHERE mean an internal error. */ typedef Lisp_Object (*specbinding_func) P_ ((Lisp_Object)); @@ -2019,16 +2018,16 @@ extern EMACS_INT memory_full_cons_threshold; /* Structure for recording stack slots that need marking. */ -/* This is a chain of structures, each of which points at a Lisp_Object variable - whose value should be marked in garbage collection. - Normally every link of the chain is an automatic variable of a function, - and its `val' points to some argument or local variable of the function. - On exit to the function, the chain is set back to the value it had on entry. - This way, no link remains in the chain when the stack frame containing the - link disappears. +/* This is a chain of structures, each of which points at a Lisp_Object + variable whose value should be marked in garbage collection. + Normally every link of the chain is an automatic variable of a function, + and its `val' points to some argument or local variable of the function. + On exit to the function, the chain is set back to the value it had on entry. + This way, no link remains in the chain when the stack frame containing the + link disappears. - Every function that can call Feval must protect in this fashion all - Lisp_Object variables whose contents will be used again. */ + Every function that can call Feval must protect in this fashion all + Lisp_Object variables whose contents will be used again. */ extern struct gcpro *gcprolist; @@ -2932,7 +2931,7 @@ EXFUN (Ffield_end, 3); EXFUN (Ffield_string_no_properties, 1); extern void set_time_zone_rule P_ ((char *)); -/* defined in buffer.c */ +/* Defined in buffer.c */ extern int mouse_face_overlay_overlaps P_ ((Lisp_Object)); extern void nsberror P_ ((Lisp_Object)) NO_RETURN; EXFUN (Fset_buffer_multibyte, 1); @@ -2975,7 +2974,7 @@ extern void init_buffer P_ ((void)); extern void syms_of_buffer P_ ((void)); extern void keys_of_buffer P_ ((void)); -/* defined in marker.c */ +/* Defined in marker.c */ EXFUN (Fmarker_position, 1); EXFUN (Fmarker_buffer, 1); @@ -3030,7 +3029,7 @@ extern Lisp_Object Qdelete_file; extern void syms_of_abbrev P_ ((void)); -/* defined in search.c */ +/* Defined in search.c */ extern void shrink_regexp_cache P_ ((void)); EXFUN (Fstring_match, 3); extern void restore_search_regs P_ ((void)); @@ -3054,7 +3053,7 @@ extern int find_before_next_newline P_ ((EMACS_INT, EMACS_INT, int)); extern void syms_of_search P_ ((void)); extern void clear_regexp_cache P_ ((void)); -/* defined in minibuf.c */ +/* Defined in minibuf.c */ extern Lisp_Object last_minibuf_string; extern void choose_minibuf_frame P_ ((void)); @@ -3081,7 +3080,7 @@ EXFUN (Fcall_interactively, 3); EXFUN (Fprefix_numeric_value, 1); extern void syms_of_callint P_ ((void)); -/* defined in casefiddle.c */ +/* Defined in casefiddle.c */ EXFUN (Fdowncase, 1); EXFUN (Fupcase, 1); @@ -3092,14 +3091,14 @@ EXFUN (Fupcase_initials_region, 2); extern void syms_of_casefiddle P_ ((void)); extern void keys_of_casefiddle P_ ((void)); -/* defined in casetab.c */ +/* Defined in casetab.c */ EXFUN (Fset_case_table, 1); EXFUN (Fset_standard_case_table, 1); extern void init_casetab_once P_ ((void)); extern void syms_of_casetab P_ ((void)); -/* defined in keyboard.c */ +/* Defined in keyboard.c */ extern int echoing; extern Lisp_Object echo_message_buffer; @@ -3140,7 +3139,7 @@ extern void keys_of_keyboard P_ ((void)); extern char *push_key_description P_ ((unsigned int, char *, int)); -/* defined in indent.c */ +/* Defined in indent.c */ EXFUN (Fvertical_motion, 2); EXFUN (Findent_to, 2); EXFUN (Fcurrent_column, 0); @@ -3150,7 +3149,7 @@ extern void invalidate_current_column P_ ((void)); extern int indented_beyond_p P_ ((int, int, double)); extern void syms_of_indent P_ ((void)); -/* defined in frame.c */ +/* Defined in frame.c */ #ifdef HAVE_WINDOW_SYSTEM extern Lisp_Object Vx_resource_name; extern Lisp_Object Vx_resource_class; @@ -3193,7 +3192,7 @@ extern void set_frame_buffer_list P_ ((Lisp_Object, Lisp_Object)); extern void frames_bury_buffer P_ ((Lisp_Object)); extern void syms_of_frame P_ ((void)); -/* defined in emacs.c */ +/* Defined in emacs.c */ extern Lisp_Object decode_env_path P_ ((char *, char *)); extern Lisp_Object Vinvocation_name, Vinvocation_directory; extern Lisp_Object Vbefore_init_time, Vafter_init_time; @@ -3211,7 +3210,7 @@ void synchronize_system_time_locale P_ ((void)); #define synchronize_system_time_locale() #endif void shut_down_emacs P_ ((int, int, Lisp_Object)); -/* Nonzero means don't do interactive redisplay and don't change tty modes */ +/* Nonzero means don't do interactive redisplay and don't change tty modes. */ extern int noninteractive; /* Nonzero means don't load X resources or Windows Registry settings. */ @@ -3222,12 +3221,12 @@ extern int inhibit_x_resources; extern int daemon_pipe[2]; #define IS_DAEMON (daemon_pipe[1] != 0) -/* Nonzero means don't do use window-system-specific display code */ +/* Nonzero means don't do use window-system-specific display code. */ extern int inhibit_window_system; /* Nonzero means that a filter or a sentinel is running. */ extern int running_asynch_code; -/* defined in process.c */ +/* Defined in process.c */ EXFUN (Fget_process, 1); EXFUN (Fget_buffer_process, 1); EXFUN (Fprocessp, 1); @@ -3250,7 +3249,7 @@ extern void init_process P_ ((void)); extern void syms_of_process P_ ((void)); extern void setup_process_coding_systems P_ ((Lisp_Object)); -/* defined in callproc.c */ +/* Defined in callproc.c */ extern Lisp_Object Vexec_path, Vexec_suffixes, Vexec_directory, Vdata_directory; extern Lisp_Object Vdoc_directory; @@ -3261,7 +3260,7 @@ extern void init_callproc P_ ((void)); extern void set_initial_environment P_ ((void)); extern void syms_of_callproc P_ ((void)); -/* defined in doc.c */ +/* Defined in doc.c */ extern Lisp_Object Vdoc_file_name; EXFUN (Fsubstitute_command_keys, 1); EXFUN (Fdocumentation, 2); @@ -3271,7 +3270,7 @@ extern Lisp_Object get_doc_string P_ ((Lisp_Object, int, int)); extern void syms_of_doc P_ ((void)); extern int read_bytecode_char P_ ((int)); -/* defined in bytecode.c */ +/* Defined in bytecode.c */ extern Lisp_Object Qbytecode; EXFUN (Fbyte_code, 3); extern void syms_of_bytecode P_ ((void)); @@ -3279,14 +3278,14 @@ extern struct byte_stack *byte_stack_list; extern void mark_byte_stack P_ ((void)); extern void unmark_byte_stack P_ ((void)); -/* defined in macros.c */ +/* Defined in macros.c */ extern Lisp_Object Qexecute_kbd_macro; EXFUN (Fexecute_kbd_macro, 3); EXFUN (Fcancel_kbd_macro_events, 0); extern void init_macros P_ ((void)); extern void syms_of_macros P_ ((void)); -/* defined in undo.c */ +/* Defined in undo.c */ extern Lisp_Object Qinhibit_read_only; EXFUN (Fundo_boundary, 0); extern void truncate_undo_list P_ ((struct buffer *)); @@ -3300,7 +3299,7 @@ extern void record_property_change P_ ((int, int, Lisp_Object, Lisp_Object, extern void syms_of_undo P_ ((void)); extern Lisp_Object Vundo_outer_limit; -/* defined in textprop.c */ +/* Defined in textprop.c */ extern Lisp_Object Qfont, Qmouse_face; extern Lisp_Object Qinsert_in_front_hooks, Qinsert_behind_hooks; EXFUN (Fnext_single_property_change, 4); @@ -3317,21 +3316,21 @@ extern Lisp_Object next_single_char_property_change P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); -/* defined in menu.c */ +/* Defined in menu.c */ extern void syms_of_menu P_ ((void)); -/* defined in xmenu.c */ +/* Defined in xmenu.c */ EXFUN (Fx_popup_menu, 2); EXFUN (Fx_popup_dialog, 3); extern void syms_of_xmenu P_ ((void)); -/* defined in termchar.h */ +/* Defined in termchar.h */ struct tty_display_info; -/* defined in termhooks.h */ +/* Defined in termhooks.h */ struct terminal; -/* defined in sysdep.c */ +/* Defined in sysdep.c */ #ifndef HAVE_GET_CURRENT_DIR_NAME extern char *get_current_dir_name P_ ((void)); #endif @@ -3355,7 +3354,7 @@ extern int emacs_close P_ ((int)); extern int emacs_read P_ ((int, char *, unsigned int)); extern int emacs_write P_ ((int, const char *, unsigned int)); -/* defined in filelock.c */ +/* Defined in filelock.c */ EXFUN (Funlock_buffer, 0); EXFUN (Ffile_locked_p, 1); extern void unlock_all_files P_ ((void)); diff --git a/src/regex.c b/src/regex.c index f242446796d..85ff9b99604 100644 --- a/src/regex.c +++ b/src/regex.c @@ -2086,7 +2086,7 @@ struct range_table_work_area } while (0) -/* Both FROM and TO are mulitbyte characters. */ +/* Both FROM and TO are multibyte characters. */ #define SETUP_MULTIBYTE_RANGE(work_area, FROM, TO) \ do { \ @@ -3805,7 +3805,7 @@ regex_compile (pattern, size, syntax, bufp) if (c1 != c2 && (c1 = RE_CHAR_TO_UNIBYTE (c2)) >= 0) c = c1; - } + } *b++ = c; len = 1; } @@ -4125,7 +4125,7 @@ analyse_first (p, pend, fastmap, multibyte) if (/* Any leading code can possibly start a character which doesn't match the specified set of characters. */ not - || + || /* If we can match a character class, we can match any multibyte characters. */ (CHARSET_RANGE_TABLE_EXISTS_P (&p[-2]) diff --git a/src/search.c b/src/search.c index 2269afc6d82..736a89258f5 100644 --- a/src/search.c +++ b/src/search.c @@ -100,10 +100,10 @@ Lisp_Object Vinhibit_changing_match_data; static void set_search_regs P_ ((EMACS_INT, EMACS_INT)); static void save_search_regs P_ ((void)); -static EMACS_INT simple_search P_ ((int, unsigned char *, int, int, +static EMACS_INT simple_search P_ ((int, unsigned char *, int, int, Lisp_Object, EMACS_INT, EMACS_INT, EMACS_INT, EMACS_INT)); -static EMACS_INT boyer_moore P_ ((int, unsigned char *, int, int, +static EMACS_INT boyer_moore P_ ((int, unsigned char *, int, int, Lisp_Object, Lisp_Object, EMACS_INT, EMACS_INT, EMACS_INT, EMACS_INT, int)); @@ -281,7 +281,7 @@ compile_pattern (pattern, regp, translate, posix, multibyte) if (regp) re_set_registers (&cp->buf, regp, regp->num_regs, regp->start, regp->end); - /* The compiled pattern can be used both for mulitbyte and unibyte + /* The compiled pattern can be used both for multibyte and unibyte target. But, we have to tell which the pattern is used for. */ cp->buf.target_multibyte = multibyte; @@ -582,7 +582,7 @@ fast_looking_at (regexp, pos, pos_byte, limit, limit_byte, string) unsigned char *p1, *p2; EMACS_INT s1, s2; EMACS_INT len; - + if (STRINGP (string)) { if (pos_byte < 0) -- 2.39.2