[Emacs-diffs] emacs/lisp ChangeLog x-dnd.el

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/02/26 10:26:35

Modified files:
        lisp           : ChangeLog x-dnd.el 

Log message:
        * x-dnd.el (x-dnd-test-function, x-dnd-get-state-cons-for-frame)
          (x-dnd-get-state-for-frame, x-dnd-handle-moz-url)
          (x-dnd-handle-uri-list, x-dnd-choose-type, 
x-dnd-get-drop-width-height)
          (x-dnd-init-motif-for-frame): Fix typos in docstrings.
          (x-dnd-drop-data, x-dnd-types-alist, x-dnd-default-test-function):
          Reflow docstrings.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15404&r2=1.15405
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/x-dnd.el?cvsroot=emacs&r1=1.33&r2=1.34

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15404
retrieving revision 1.15405
diff -u -b -r1.15404 -r1.15405
--- ChangeLog   26 Feb 2009 08:45:09 -0000      1.15404
+++ ChangeLog   26 Feb 2009 10:26:32 -0000      1.15405
@@ -1,3 +1,12 @@
+2009-02-26  Juanma Barranquero  <address@hidden>
+
+       * x-dnd.el (x-dnd-test-function, x-dnd-get-state-cons-for-frame)
+       (x-dnd-get-state-for-frame, x-dnd-handle-moz-url)
+       (x-dnd-handle-uri-list, x-dnd-choose-type, x-dnd-get-drop-width-height)
+       (x-dnd-init-motif-for-frame): Fix typos in docstrings.
+       (x-dnd-drop-data, x-dnd-types-alist, x-dnd-default-test-function):
+       Reflow docstrings.
+
 2009-02-26  Glenn Morris  <address@hidden>
 
        * mail/rmailsum.el (rmail-summary-rmail-update):

Index: x-dnd.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/x-dnd.el,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -b -r1.33 -r1.34
--- x-dnd.el    5 Jan 2009 03:19:57 -0000       1.33
+++ x-dnd.el    26 Feb 2009 10:26:35 -0000      1.34
@@ -33,12 +33,12 @@
 ;;; Customizable variables
 (defcustom x-dnd-test-function 'x-dnd-default-test-function
   "The function drag and drop uses to determine if to accept or reject a drop.
-The function takes three arguments, WINDOW ACTION and TYPES.
+The function takes three arguments, WINDOW, ACTION and TYPES.
 WINDOW is where the mouse is when the function is called.  WINDOW may be a
 frame if the mouse isn't over a real window (i.e. menu bar, tool bar or
 scroll bar).  ACTION is the suggested action from the drag and drop source,
-one of the symbols move, copy link or ask.  TYPES is a list of available types
-for the drop.
+one of the symbols move, copy, link or ask.  TYPES is a list of available
+types for the drop.
 
 The function shall return nil to reject the drop or a cons with two values,
 the wanted action as car and the wanted type as cdr.  The wanted action
@@ -71,8 +71,8 @@
 and DATA.  WINDOW is where the drop occurred, ACTION is the action for
 this drop (copy, move, link, private or ask) as determined by a previous
 call to `x-dnd-test-function'.  DATA is the drop data.
-The function shall return the action used (copy, move, link or private) if drop
-is successful, nil if not."
+The function shall return the action used (copy, move, link or private)
+if drop is successful, nil if not."
   :version "22.1"
   :type 'alist
   :group 'x)
@@ -130,7 +130,7 @@
     (x-dnd-init-motif-for-frame frame)))
 
 (defun x-dnd-get-state-cons-for-frame (frame-or-window)
-  "Return the entry in x-dnd-current-state for a frame or window."
+  "Return the entry in `x-dnd-current-state' for a frame or window."
   (let* ((frame (if (framep frame-or-window) frame-or-window
                  (window-frame frame-or-window)))
         (display (frame-parameter frame 'display)))
@@ -140,13 +140,13 @@
     (assoc display x-dnd-current-state)))
 
 (defun x-dnd-get-state-for-frame (frame-or-window)
-  "Return the state in x-dnd-current-state for a frame or window."
+  "Return the state in `x-dnd-current-state' for a frame or window."
   (cdr (x-dnd-get-state-cons-for-frame frame-or-window)))
 
 (defun x-dnd-default-test-function (window action types)
   "The default test function for drag and drop.
-WINDOW is where the mouse is when this function is called.  It may be a frame
-if the mouse is over the menu bar, scroll bar or tool bar.
+WINDOW is where the mouse is when this function is called.  It may be
+a frame if the mouse is over the menu bar, scroll bar or tool bar.
 ACTION is the suggested action from the source, and TYPES are the
 types the drop data can have.  This function only accepts drops with
 types in `x-dnd-known-types'.  It always returns the action private."
@@ -212,7 +212,7 @@
 (defun x-dnd-handle-moz-url (window action data)
   "Handle one item of type text/x-moz-url.
 WINDOW is the window where the drop happened.  ACTION is ignored.
-DATA is the moz-url, which is formatted as two strings separated by \r\n.
+DATA is the moz-url, which is formatted as two strings separated by \\r\\n.
 The first string is the URL, the second string is the title of that URL.
 DATA is encoded in utf-16.  Decode the URL and call `x-dnd-handle-uri-list'."
   ;; Mozilla and applications based on it (Galeon for example) uses
@@ -249,11 +249,11 @@
 (defun x-dnd-handle-uri-list (window action string)
   "Split an uri-list into separate URIs and call `dnd-handle-one-url'.
 WINDOW is the window where the drop happened.
-STRING is the uri-list as a string.  The URIs are separated by \r\n."
+STRING is the uri-list as a string.  The URIs are separated by \\r\\n."
   (let ((uri-list (split-string string "[\0\r\n]" t))
        retval)
     (dolist (bf uri-list)
-      ;; If one URL is handeled, treat as if the whole drop succeeded.
+      ;; If one URL is handled, treat as if the whole drop succeeded.
       (let ((did-action (dnd-handle-one-url window action bf)))
        (when did-action (setq retval did-action))))
     retval))
@@ -268,7 +268,7 @@
                         default-file-name-coding-system)))
        retval)
     (dolist (bf uri-list)
-      ;; If one URL is handeled, treat as if the whole drop succeeded.
+      ;; If one URL is handled, treat as if the whole drop succeeded.
       (if coding (setq bf (encode-coding-string bf coding)))
       (let* ((file-uri (concat "file://"
                               (mapconcat 'url-hexify-string
@@ -303,10 +303,10 @@
 
 (defun x-dnd-drop-data (event frame window data type)
   "Drop one data item onto a frame.
-EVENT is the client message for the drop, FRAME is the frame the drop occurred
-on.  WINDOW is the window of FRAME where the drop happened.  DATA is the data
-received from the source, and type is the type for DATA, see
-`x-dnd-types-alist').
+EVENT is the client message for the drop, FRAME is the frame the drop
+occurred on.  WINDOW is the window of FRAME where the drop happened.
+DATA is the data received from the source, and type is the type for DATA,
+see `x-dnd-types-alist').
 
 Returns the action used (move, copy, link, private) if drop was successful,
 nil if not."
@@ -389,10 +389,10 @@
                            frame "ATOM" 32 t))
 
 (defun x-dnd-get-drop-width-height (frame w accept)
-  "Return the widht/height to be sent in a XDndStatus message.
+  "Return the width/height to be sent in a XDndStatus message.
 FRAME is the frame and W is the window where the drop happened.
 If ACCEPT is nil return 0 (empty rectangle),
-otherwise if W is a window, return its widht/height,
+otherwise if W is a window, return its width/height,
 otherwise return the frame width/height."
   (if accept
       (if (windowp w)   ;; w is not a window if dropping on the menu bar,