aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorJuanma Barranquero2009-03-12 14:14:35 +0000
committerJuanma Barranquero2009-03-12 14:14:35 +0000
commitb066e6b62926c8a0f3905d2cb079bdfe9d81918c (patch)
treecd14795ef9713234c98983e2325800e04aa3d8a9 /src
parent1a86cc81da9a6be24e32c7eec7e4c29c0532bad2 (diff)
downloademacs-b066e6b62926c8a0f3905d2cb079bdfe9d81918c.tar.gz
emacs-b066e6b62926c8a0f3905d2cb079bdfe9d81918c.zip
* nsfns.m (Fx_close_connection): Doc fix.
(Fns_do_applescript): Reflow docstring. (Fns_hide_others, Fns_hide_emacs, Fns_convert_utf8_nfd_to_nfc) (Fx_display_pixel_width, Fx_display_pixel_height) (Fns_display_usable_bounds, Fx_display_planes, Fx_show_tip): Fix typos in docstrings. (Fns_set_alpha): Fix typos in error messages.
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog10
-rw-r--r--src/nsfns.m46
2 files changed, 33 insertions, 23 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 3de3d7fa4a1..bb2264035da 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,13 @@
12009-03-12 Juanma Barranquero <lekktu@gmail.com>
2
3 * nsfns.m (Fx_close_connection): Doc fix.
4 (Fns_do_applescript): Reflow docstring.
5 (Fns_hide_others, Fns_hide_emacs, Fns_convert_utf8_nfd_to_nfc)
6 (Fx_display_pixel_width, Fx_display_pixel_height)
7 (Fns_display_usable_bounds, Fx_display_planes, Fx_show_tip):
8 Fix typos in docstrings.
9 (Fns_set_alpha): Fix typos in error messages.
10
12009-03-12 David Reitter <david.reitter@gmail.com> 112009-03-12 David Reitter <david.reitter@gmail.com>
2 12
3 * termhooks.h [HAVE_NS]: Define NS_NONKEY_EVENT to be used for 13 * termhooks.h [HAVE_NS]: Define NS_NONKEY_EVENT to be used for
diff --git a/src/nsfns.m b/src/nsfns.m
index bf5ab5af34e..77a222b0c3d 100644
--- a/src/nsfns.m
+++ b/src/nsfns.m
@@ -1416,7 +1416,7 @@ DEFUN ("ns-popup-font-panel", Fns_popup_font_panel, Sns_popup_font_panel,
1416} 1416}
1417 1417
1418 1418
1419DEFUN ("ns-popup-color-panel", Fns_popup_color_panel, Sns_popup_color_panel, 1419DEFUN ("ns-popup-color-panel", Fns_popup_color_panel, Sns_popup_color_panel,
1420 0, 1, "", 1420 0, 1, "",
1421 doc: /* Pop up the color panel. */) 1421 doc: /* Pop up the color panel. */)
1422 (frame) 1422 (frame)
@@ -1497,7 +1497,7 @@ Optional arg INIT, if non-nil, provides a default file name to use. */)
1497 1497
1498 if (ret) 1498 if (ret)
1499 fname = build_string ([[panel filename] UTF8String]); 1499 fname = build_string ([[panel filename] UTF8String]);
1500 1500
1501 [[FRAME_NS_VIEW (SELECTED_FRAME ()) window] makeKeyWindow]; 1501 [[FRAME_NS_VIEW (SELECTED_FRAME ()) window] makeKeyWindow];
1502 UNBLOCK_INPUT; 1502 UNBLOCK_INPUT;
1503 1503
@@ -1577,11 +1577,11 @@ transparency and 1 is opaque. */)
1577 CHECK_NUMBER_OR_FLOAT (alpha); 1577 CHECK_NUMBER_OR_FLOAT (alpha);
1578 1578
1579 if (ns_lisp_to_color (color, &col)) 1579 if (ns_lisp_to_color (color, &col))
1580 error ("Unknown color."); 1580 error ("Unknown color");
1581 1581
1582 a = XFLOATINT (alpha); 1582 a = XFLOATINT (alpha);
1583 if (a < 0.0 || a > 1.0) 1583 if (a < 0.0 || a > 1.0)
1584 error ("Alpha value should be between 0 and 1 inclusive."); 1584 error ("Alpha value should be between 0 and 1 inclusive");
1585 1585
1586 col = [col colorWithAlphaComponent: a]; 1586 col = [col colorWithAlphaComponent: a];
1587 return ns_color_to_lisp (col); 1587 return ns_color_to_lisp (col);
@@ -1809,7 +1809,7 @@ Optional arguments XRM-STRING and MUST-SUCCEED are currently ignored. */)
1809DEFUN ("x-close-connection", Fx_close_connection, Sx_close_connection, 1809DEFUN ("x-close-connection", Fx_close_connection, Sx_close_connection,
1810 1, 1, 0, 1810 1, 1, 0,
1811 doc: /* Close the connection to the current Nextstep display server. 1811 doc: /* Close the connection to the current Nextstep display server.
1812The second argument DISPLAY is currently ignored. */) 1812The argument DISPLAY is currently ignored. */)
1813 (display) 1813 (display)
1814 Lisp_Object display; 1814 Lisp_Object display;
1815{ 1815{
@@ -1839,7 +1839,7 @@ DEFUN ("x-display-list", Fx_display_list, Sx_display_list, 0, 0, 0,
1839 1839
1840DEFUN ("ns-hide-others", Fns_hide_others, Sns_hide_others, 1840DEFUN ("ns-hide-others", Fns_hide_others, Sns_hide_others,
1841 0, 0, 0, 1841 0, 0, 0,
1842 doc: /* Hides all applications other than emacs. */) 1842 doc: /* Hides all applications other than Emacs. */)
1843 () 1843 ()
1844{ 1844{
1845 check_ns (); 1845 check_ns ();
@@ -1849,9 +1849,9 @@ DEFUN ("ns-hide-others", Fns_hide_others, Sns_hide_others,
1849 1849
1850DEFUN ("ns-hide-emacs", Fns_hide_emacs, Sns_hide_emacs, 1850DEFUN ("ns-hide-emacs", Fns_hide_emacs, Sns_hide_emacs,
1851 1, 1, 0, 1851 1, 1, 0,
1852 doc: /* If ON is non-nil, the entire emacs application is hidden. 1852 doc: /* If ON is non-nil, the entire Emacs application is hidden.
1853Otherwise if emacs is hidden, it is unhidden. 1853Otherwise if Emacs is hidden, it is unhidden.
1854If ON is equal to `activate', emacs is unhidden and becomes 1854If ON is equal to `activate', Emacs is unhidden and becomes
1855the active application. */) 1855the active application. */)
1856 (on) 1856 (on)
1857 Lisp_Object on; 1857 Lisp_Object on;
@@ -2027,7 +2027,7 @@ there was no result. */)
2027 2027
2028DEFUN ("ns-convert-utf8-nfd-to-nfc", Fns_convert_utf8_nfd_to_nfc, 2028DEFUN ("ns-convert-utf8-nfd-to-nfc", Fns_convert_utf8_nfd_to_nfc,
2029 Sns_convert_utf8_nfd_to_nfc, 1, 1, 0, 2029 Sns_convert_utf8_nfd_to_nfc, 1, 1, 0,
2030 doc: /* Return an NFC string that matches the UTF-8 NFD string STR. */) 2030 doc: /* Return an NFC string that matches the UTF-8 NFD string STR. */)
2031 (str) 2031 (str)
2032 Lisp_Object str; 2032 Lisp_Object str;
2033{ 2033{
@@ -2071,9 +2071,9 @@ ns_do_applescript (script, result)
2071 2071
2072 returnDescriptor = [scriptObject executeAndReturnError: &errorDict]; 2072 returnDescriptor = [scriptObject executeAndReturnError: &errorDict];
2073 [scriptObject release]; 2073 [scriptObject release];
2074 2074
2075 *result = Qnil; 2075 *result = Qnil;
2076 2076
2077 if (returnDescriptor != NULL) 2077 if (returnDescriptor != NULL)
2078 { 2078 {
2079 // successful execution 2079 // successful execution
@@ -2083,7 +2083,7 @@ ns_do_applescript (script, result)
2083 // script returned an AppleScript result 2083 // script returned an AppleScript result
2084 if ((typeUnicodeText == [returnDescriptor descriptorType]) || 2084 if ((typeUnicodeText == [returnDescriptor descriptorType]) ||
2085#if defined (NS_IMPL_COCOA) && MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4 2085#if defined (NS_IMPL_COCOA) && MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
2086 (typeUTF16ExternalRepresentation 2086 (typeUTF16ExternalRepresentation
2087 == [returnDescriptor descriptorType]) || 2087 == [returnDescriptor descriptorType]) ||
2088#endif 2088#endif
2089 (typeUTF8Text == [returnDescriptor descriptorType]) || 2089 (typeUTF8Text == [returnDescriptor descriptorType]) ||
@@ -2112,10 +2112,10 @@ ns_do_applescript (script, result)
2112} 2112}
2113 2113
2114DEFUN ("ns-do-applescript", Fns_do_applescript, Sns_do_applescript, 1, 1, 0, 2114DEFUN ("ns-do-applescript", Fns_do_applescript, Sns_do_applescript, 1, 1, 0,
2115 doc: /* Execute AppleScript SCRIPT and return the result. If 2115 doc: /* Execute AppleScript SCRIPT and return the result.
2116compilation and execution are successful, the resulting script value 2116If compilation and execution are successful, the resulting script value
2117is returned as a string, a number or, in the case of other constructs, 2117is returned as a string, a number or, in the case of other constructs, t.
2118t. In case the execution fails, an error is signaled. */) 2118In case the execution fails, an error is signaled. */)
2119 (script) 2119 (script)
2120 Lisp_Object script; 2120 Lisp_Object script;
2121{ 2121{
@@ -2343,7 +2343,7 @@ If omitted or nil, that stands for the selected frame's display. */)
2343 2343
2344DEFUN ("x-display-pixel-width", Fx_display_pixel_width, Sx_display_pixel_width, 2344DEFUN ("x-display-pixel-width", Fx_display_pixel_width, Sx_display_pixel_width,
2345 0, 1, 0, 2345 0, 1, 0,
2346 doc: /* Returns the width in pixels of the Nextstep display DISPLAY. 2346 doc: /* Return the width in pixels of the Nextstep display DISPLAY.
2347The optional argument DISPLAY specifies which display to ask about. 2347The optional argument DISPLAY specifies which display to ask about.
2348DISPLAY should be either a frame, a display name (a string), or terminal ID. 2348DISPLAY should be either a frame, a display name (a string), or terminal ID.
2349If omitted or nil, that stands for the selected frame's display. */) 2349If omitted or nil, that stands for the selected frame's display. */)
@@ -2357,7 +2357,7 @@ If omitted or nil, that stands for the selected frame's display. */)
2357 2357
2358DEFUN ("x-display-pixel-height", Fx_display_pixel_height, 2358DEFUN ("x-display-pixel-height", Fx_display_pixel_height,
2359 Sx_display_pixel_height, 0, 1, 0, 2359 Sx_display_pixel_height, 0, 1, 0,
2360 doc: /* Returns the height in pixels of the Nextstep display DISPLAY. 2360 doc: /* Return the height in pixels of the Nextstep display DISPLAY.
2361The optional argument DISPLAY specifies which display to ask about. 2361The optional argument DISPLAY specifies which display to ask about.
2362DISPLAY should be either a frame, a display name (a string), or terminal ID. 2362DISPLAY should be either a frame, a display name (a string), or terminal ID.
2363If omitted or nil, that stands for the selected frame's display. */) 2363If omitted or nil, that stands for the selected frame's display. */)
@@ -2371,7 +2371,7 @@ If omitted or nil, that stands for the selected frame's display. */)
2371 2371
2372DEFUN ("display-usable-bounds", Fns_display_usable_bounds, 2372DEFUN ("display-usable-bounds", Fns_display_usable_bounds,
2373 Sns_display_usable_bounds, 0, 1, 0, 2373 Sns_display_usable_bounds, 0, 1, 0,
2374 doc: /*Return the bounds of the usable part of the screen. 2374 doc: /* Return the bounds of the usable part of the screen.
2375The return value is a list of integers (LEFT TOP WIDTH HEIGHT), which 2375The return value is a list of integers (LEFT TOP WIDTH HEIGHT), which
2376are the boundaries of the usable part of the screen, excluding areas 2376are the boundaries of the usable part of the screen, excluding areas
2377reserved for the Mac menu, dock, and so forth. 2377reserved for the Mac menu, dock, and so forth.
@@ -2399,7 +2399,7 @@ that stands for the selected frame's display. */)
2399 2399
2400DEFUN ("x-display-planes", Fx_display_planes, Sx_display_planes, 2400DEFUN ("x-display-planes", Fx_display_planes, Sx_display_planes,
2401 0, 1, 0, 2401 0, 1, 0,
2402 doc: /* Returns the number of bitplanes of the Nextstep display DISPLAY. 2402 doc: /* Return the number of bitplanes of the Nextstep display DISPLAY.
2403The optional argument DISPLAY specifies which display to ask about. 2403The optional argument DISPLAY specifies which display to ask about.
2404DISPLAY should be either a frame, a display name (a string), or terminal ID. 2404DISPLAY should be either a frame, a display name (a string), or terminal ID.
2405If omitted or nil, that stands for the selected frame's display. */) 2405If omitted or nil, that stands for the selected frame's display. */)
@@ -2443,7 +2443,7 @@ compute_tip_xy (f, parms, dx, dy, width, height, root_x, root_y)
2443 Lisp_Object left, top; 2443 Lisp_Object left, top;
2444 EmacsView *view = FRAME_NS_VIEW (f); 2444 EmacsView *view = FRAME_NS_VIEW (f);
2445 NSPoint pt; 2445 NSPoint pt;
2446 2446
2447 /* Start with user-specified or mouse position. */ 2447 /* Start with user-specified or mouse position. */
2448 left = Fcdr (Fassq (Qleft, parms)); 2448 left = Fcdr (Fassq (Qleft, parms));
2449 if (INTEGERP (left)) 2449 if (INTEGERP (left))
@@ -2488,7 +2488,7 @@ compute_tip_xy (f, parms, dx, dy, width, height, root_x, root_y)
2488 2488
2489 2489
2490DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0, 2490DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0,
2491 doc: /* Show STRING in a "tooltip" window on frame FRAME. 2491 doc: /* Show STRING in a \"tooltip\" window on frame FRAME.
2492A tooltip window is a small window displaying a string. 2492A tooltip window is a small window displaying a string.
2493 2493
2494FRAME nil or omitted means use the selected frame. 2494FRAME nil or omitted means use the selected frame.