# HG changeset patch # User Juanma Barranquero # Date 1241392775 0 # Node ID ba681b91f7168427c40bb9e33ac929cbffcf6cfb # Parent 5e92db883c9f36d21dc4cff0f54f6da92f3eaafd * term/ns-win.el (ns-alternatives-map, ns-insert-working-text) (ns-echo-working-text, ns-utf8-nfd-post-read-conversion) (ns-insert-text, ns-insert-file, ns-find-file, generate-fontset-menu) (mouse-set-font, ns-respond-to-change-font, ns-standard-fontset-spec) (ns-set-background-alpha, ns-set-foreground-at-mouse) (ns-set-background-at-mouse): Fix typos in docstrings. diff -r 5e92db883c9f -r ba681b91f716 lisp/ChangeLog --- a/lisp/ChangeLog Sun May 03 22:27:40 2009 +0000 +++ b/lisp/ChangeLog Sun May 03 23:19:35 2009 +0000 @@ -1,3 +1,12 @@ +2009-05-03 Juanma Barranquero + + * term/ns-win.el (ns-alternatives-map, ns-insert-working-text) + (ns-echo-working-text, ns-utf8-nfd-post-read-conversion) + (ns-insert-text, ns-insert-file, ns-find-file, generate-fontset-menu) + (mouse-set-font, ns-respond-to-change-font, ns-standard-fontset-spec) + (ns-set-background-alpha, ns-set-foreground-at-mouse) + (ns-set-background-at-mouse): Fix typos in docstrings. + 2009-05-03 Daiki Ueno * epg.el (epg-wait-for-completion): Sleep after the process diff -r 5e92db883c9f -r ba681b91f716 lisp/term/ns-win.el --- a/lisp/term/ns-win.el Sun May 03 22:27:40 2009 +0000 +++ b/lisp/term/ns-win.el Sun May 03 23:19:35 2009 +0000 @@ -220,7 +220,7 @@ (define-key map [M-return] [?\M-\C-m]) (define-key map [M-escape] [?\M-\e]) map) - "Keymap of alternative meanings for some keys under NS.") + "Keymap of alternative meanings for some keys under Nextstep.") ;; Here are some Nextstep-like bindings for command key sequences. (define-key global-map [?\s-,] 'customize) @@ -612,7 +612,7 @@ (ns-delete-working-text)) (defun ns-insert-working-text () - "Insert contents of `ns-working-text' as UTF8 string and mark with + "Insert contents of `ns-working-text' as UTF-8 string and mark with `ns-working-overlay'. Any previously existing working text is cleared first. The overlay is assigned the face `ns-working-text-face'." ;; FIXME: if buffer is read-only, don't try to insert anything @@ -626,7 +626,7 @@ 'face 'ns-working-text-face))) (defun ns-echo-working-text () - "Echo contents of ns-working-text in message display area. + "Echo contents of `ns-working-text' in message display area. See `ns-insert-working-text'." (ns-delete-working-text) (let* ((msg (current-message)) @@ -666,7 +666,7 @@ (progn (defun ns-utf8-nfd-post-read-conversion (length) - "Calls ns-convert-utf8-nfd-to-nfc to compose char sequences." + "Calls `ns-convert-utf8-nfd-to-nfc' to compose char sequences." (save-excursion (save-restriction (narrow-to-region (point) (+ (point) length)) @@ -695,14 +695,14 @@ (defvar ns-input-text) ; nsterm.m (defun ns-insert-text () - "Insert contents of ns-input-text at point." + "Insert contents of `ns-input-text' at point." (interactive) (insert ns-input-text) (setq ns-input-text nil)) (defun ns-insert-file () - "Insert contents of file ns-input-file like insert-file but with less -prompting. If file is a directory perform a find-file on it." + "Insert contents of file `ns-input-file' like insert-file but with less +prompting. If file is a directory perform a `find-file' on it." (interactive) (let ((f)) (setq f (car ns-input-file)) @@ -808,7 +808,7 @@ (declare-function ns-hide-emacs "nsfns.m" (on)) (defun ns-find-file () - "Do a find-file with the ns-input-file as argument." + "Do a `find-file' with the `ns-input-file' as argument." (interactive) (let ((f) (file) (bufwin1) (bufwin2)) (setq f (file-truename (car ns-input-file))) @@ -864,6 +864,7 @@ "Switch to next visible frame." (interactive) (other-frame 1)) + (defun ns-prev-frame () "Switch to previous visible frame." (interactive) @@ -935,17 +936,17 @@ ;; Set to use font panel instead (declare-function ns-popup-font-panel "nsfns.m" (&optional frame)) (defalias 'generate-fontset-menu 'ns-popup-font-panel "Pop up the font panel. -This function has been overloaded in NS.") +This function has been overloaded in Nextstep.") (defalias 'mouse-set-font 'ns-popup-font-panel "Pop up the font panel. -This function has been overloaded in NS.") +This function has been overloaded in Nextstep.") ;; nsterm.m (defvar ns-input-font) (defvar ns-input-fontsize) (defun ns-respond-to-change-font () - "Respond to changeFont: event, expecting ns-input-font and\n\ -ns-input-fontsize of new font." + "Respond to changeFont: event, expecting `ns-input-font' and\n\ +`ns-input-fontsize' of new font." (interactive) (modify-frame-parameters (selected-frame) (list (cons 'font ns-input-font) @@ -955,7 +956,7 @@ ;; Default fontset for Mac OS X. This is mainly here to show how a fontset ;; can be set up manually. Ordinarily, fontsets are auto-created whenever -;; a font is chosen by +;; a font is chosen by (defvar ns-standard-fontset-spec ;; Only some code supports this so far, so use uglier XLFD version ;; "-ns-*-*-*-*-*-10-*-*-*-*-*-fontset-standard,latin:Courier,han:Kai" @@ -967,8 +968,8 @@ ",") "String of fontset spec of the standard fontset. This defines a fontset consisting of the Courier and other fonts that -come with OS X\". -See the documentation of `create-fontset-from-fontset-spec for the format.") +come with OS X. +See the documentation of `create-fontset-from-fontset-spec' for the format.") ;; Conditional on new-fontset so bootstrapping works on non-GUI compiles. (if (fboundp 'new-fontset) @@ -978,7 +979,7 @@ ;; Create the standard fontset. (condition-case err (create-fontset-from-fontset-spec ns-standard-fontset-spec t) - (error (display-warning + (error (display-warning 'initialization (format "Creation of the standard fontset failed: %s" err) :error))))) @@ -1146,7 +1147,7 @@ ;; Convenience and work-around for fact that set color fns now require named. (defun ns-set-background-alpha (alpha) - "Sets alpha (opacity) of background. + "Sets ALPHA (opacity) of background. Set from 0.0 (fully transparent) to 1.0 (fully opaque; default). Note, tranparency works better on Tiger (10.4) and higher." (interactive "nSet background alpha to: ") @@ -1193,7 +1194,7 @@ (defvar ns-input-color) ; nsterm.m (defun ns-set-foreground-at-mouse () - "Set the foreground color at the mouse location to ns-input-color." + "Set the foreground color at the mouse location to `ns-input-color'." (interactive) (let* ((pos (mouse-position)) (frame (car pos)) @@ -1209,7 +1210,7 @@ (set-face-foreground face ns-input-color frame))))) (defun ns-set-background-at-mouse () - "Set the background color at the mouse location to ns-input-color." + "Set the background color at the mouse location to `ns-input-color'." (interactive) (let* ((pos (mouse-position)) (frame (car pos))