diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2016-09-12 08:06:52 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2016-09-12 08:07:12 -0700 |
| commit | 6fdecd4a4988986c82203388d21e6d62908490d7 (patch) | |
| tree | 4137b5bdc09b02f44f8b5e2f5c395b84f99879b6 | |
| parent | 728e40088d054516c1cb5f5412cdab73ed84861d (diff) | |
* src/casefiddle.c (casify_word): Return Qnil.
| -rw-r--r-- | src/casefiddle.c | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/casefiddle.c b/src/casefiddle.c index 6c64d6786d..59b5bbcf43 100644 --- a/src/casefiddle.c +++ b/src/casefiddle.c @@ -397,6 +397,7 @@ casify_word (enum case_action flag, Lisp_Object arg) casify_region (flag, beg, end); SET_PT (newpoint); + return Qnil; } DEFUN ("upcase-word", Fupcase_word, Supcase_word, 1, 1, "p", @@ -409,8 +410,7 @@ With negative argument, convert previous words but do not move. See also `capitalize-word'. */) (Lisp_Object arg) { - casify_word (CASE_UP, arg); - return Qnil; + return casify_word (CASE_UP, arg); } DEFUN ("downcase-word", Fdowncase_word, Sdowncase_word, 1, 1, "p", @@ -422,8 +422,7 @@ is ignored when moving forward. With negative argument, convert previous words but do not move. */) (Lisp_Object arg) { - casify_word (CASE_DOWN, arg); - return Qnil; + return casify_word (CASE_DOWN, arg); } DEFUN ("capitalize-word", Fcapitalize_word, Scapitalize_word, 1, 1, "p", @@ -438,8 +437,7 @@ is ignored when moving forward. With negative argument, capitalize previous words but do not move. */) (Lisp_Object arg) { - casify_word (CASE_CAPITALIZE, arg); - return Qnil; + return casify_word (CASE_CAPITALIZE, arg); } void |