home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / gnu / emacs / bug / 1597 < prev    next >
Encoding:
Text File  |  1992-12-30  |  2.8 KB  |  88 lines
  1. Newsgroups: gnu.emacs.bug
  2. Path: sparky!uunet!elroy.jpl.nasa.gov!usc!zaphod.mps.ohio-state.edu!cis.ohio-state.edu!expo.lcs.mit.edu!gildea
  3. From: gildea@expo.lcs.mit.edu (Stephen Gildea)
  4. Subject: want interface to upcase_initials_region
  5. Message-ID: <9212292248.AA06783@alex.lcs.mit.edu>
  6. Sender: gnulists@ai.mit.edu
  7. Organization: GNUs Not Usenet
  8. Distribution: gnu
  9. Date: Tue, 29 Dec 1992 22:48:27 GMT
  10. Approved: bug-gnu-emacs@prep.ai.mit.edu
  11. Lines: 75
  12.  
  13. I just discovered in the Emacs 18.59 sources a function I have
  14. wanted before: upcase_initials_region, which changes the first
  15. letter of each word to uppercase without disturbing the rest of the
  16. word.  Unfortunately, this function is not callable from lisp.
  17.  
  18. Please make upcase_initials_region available.  I've appended diffs.
  19.  
  20.  < Stephen
  21.  
  22.  
  23. *** src/casefiddle.c-18.59    Fri Jan  4 19:13:58 1991
  24. --- src/casefiddle.c    Mon Dec 28 11:12:54 1992
  25. ***************
  26. *** 164,171 ****
  27.   }
  28.   
  29. ! /* Like Fcapitalize but change only the initials.  */
  30. ! 
  31. ! Lisp_Object
  32. ! upcase_initials_region (b, e)
  33.        Lisp_Object b, e;
  34.   {
  35. --- 164,173 ----
  36.   }
  37.   
  38. ! DEFUN ("upcase-initials-region", Fupcase_initials_region, Supcase_initials_region, 2, 2, "r",
  39. !   "Convert the first letter of every word in the region to upper case.\n\
  40. ! In programs, wants two arguments.  These arguments specify the starting\n\
  41. ! and ending character numbers of the region to operate on.  When used as\n\
  42. ! a command, the text between point and the mark is operated on.")
  43. !   (b, e)
  44.        Lisp_Object b, e;
  45.   {
  46. ***************
  47. *** 237,240 ****
  48. --- 239,243 ----
  49.     defsubr (&Sdowncase_region);
  50.     defsubr (&Scapitalize_region);
  51. +   defsubr (&Supcase_initials_region);
  52.     defsubr (&Supcase_word);
  53.     defsubr (&Sdowncase_word);
  54. *** src/abbrev.c-18.59    Mon Aug 12 21:30:41 1991
  55. --- src/abbrev.c    Mon Dec 28 11:13:32 1992
  56. ***************
  57. *** 284,289 ****
  58.       if (scan_words (point, -1) > scan_words (wordstart, 1))
  59.         {
  60. !         upcase_initials_region (make_number (wordstart),
  61. !                     make_number (point));
  62.           goto caped;
  63.         }
  64. --- 284,289 ----
  65.       if (scan_words (point, -1) > scan_words (wordstart, 1))
  66.         {
  67. !         Fupcase_initials_region (make_number (wordstart),
  68. !                      make_number (point));
  69.           goto caped;
  70.         }
  71. *** src/search.c-18.59    Tue Oct  8 00:07:38 1991
  72. --- src/search.c    Mon Dec 28 11:07:25 1992
  73. ***************
  74. *** 1078,1082 ****
  75.       Fupcase_region (make_number (point - inslen), make_number (point));
  76.     else if (case_action == cap_initial)
  77. !     upcase_initials_region (make_number (point - inslen), make_number (point));
  78.     return Qnil;
  79.   }
  80. --- 1078,1082 ----
  81.       Fupcase_region (make_number (point - inslen), make_number (point));
  82.     else if (case_action == cap_initial)
  83. !     Fupcase_initials_region (make_number (point - inslen), make_number (point));
  84.     return Qnil;
  85.   }
  86.  
  87.  
  88.