emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs/lisp ChangeLog term/ns-win.el


From: Juanma Barranquero
Subject: [Emacs-diffs] emacs/lisp ChangeLog term/ns-win.el
Date: Sun, 03 May 2009 23:19:40 +0000

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/05/03 23:19:40

Modified files:
        lisp           : ChangeLog 
        lisp/term      : ns-win.el 

Log message:
        * 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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15626&r2=1.15627
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/term/ns-win.el?cvsroot=emacs&r1=1.42&r2=1.43

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15626
retrieving revision 1.15627
diff -u -b -r1.15626 -r1.15627
--- ChangeLog   3 May 2009 22:27:40 -0000       1.15626
+++ ChangeLog   3 May 2009 23:19:35 -0000       1.15627
@@ -1,3 +1,12 @@
+2009-05-03  Juanma Barranquero  <address@hidden>
+
+       * 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  <address@hidden>
 
        * epg.el (epg-wait-for-completion): Sleep after the process

Index: term/ns-win.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/term/ns-win.el,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -b -r1.42 -r1.43
--- term/ns-win.el      30 Apr 2009 18:01:40 -0000      1.42
+++ term/ns-win.el      3 May 2009 23:19:39 -0000       1.43
@@ -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)
@@ -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)
@@ -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))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]