[Emacs-diffs] Changes to emacs/lispref/processes.texi

[Richard M . Stallman]

Index: emacs/lispref/processes.texi
diff -c emacs/lispref/processes.texi:1.64 emacs/lispref/processes.texi:1.65
*** emacs/lispref/processes.texi:1.64   Fri Jun 17 16:51:10 2005
--- emacs/lispref/processes.texi        Sat Jun 18 13:55:48 2005
***************
*** 169,175 ****
  (shell-quote-argument "foo > bar")
       @result{} "foo\\ \\>\\ bar"
  
! ;; @r{This example shows the behavior on MS-DOS and MS-Windows systems.}
  (shell-quote-argument "foo > bar")
       @result{} "\"foo > bar\""
  @end example
--- 169,175 ----
  (shell-quote-argument "foo > bar")
       @result{} "foo\\ \\>\\ bar"
  
! ;; @r{This example shows the behavior on MS-DOS and MS-Windows.}
  (shell-quote-argument "foo > bar")
       @result{} "\"foo > bar\""
  @end example
***************
*** 2277,2289 ****
                                  (buffer-string))))
           (sel (random (bindat-get-field info :count)))
           (beg (cdar (bindat-get-field info :offset sel)))
!          (end (or (cdar (bindat-get-field info :offset (1+ sel)))
                    (nth 7 (file-attributes cookies)))))
!     (switch-to-buffer (get-buffer-create
!                        (format "*Fortune Cookie: %s*"
!                                (file-name-nondirectory cookies))))
      (erase-buffer)
!     (insert-file-contents-literally cookies nil beg (- end 3))))
  
  (defun fcookie-create-index (cookies &optional index delim)
    "Scan file COOKIES, and write out its index file.
--- 2277,2292 ----
                                  (buffer-string))))
           (sel (random (bindat-get-field info :count)))
           (beg (cdar (bindat-get-field info :offset sel)))
!          (end (or (cdar (bindat-get-field info
!                                           :offset (1+ sel)))
                    (nth 7 (file-attributes cookies)))))
!     (switch-to-buffer
!      (get-buffer-create
!       (format "*Fortune Cookie: %s*"
!               (file-name-nondirectory cookies))))
      (erase-buffer)
!     (insert-file-contents-literally
!      cookies nil beg (- end 3))))
  
  (defun fcookie-create-index (cookies &optional index delim)
    "Scan file COOKIES, and write out its index file.
***************
*** 2311,2328 ****
                offsets (cons (1- p) offsets))))
      (with-temp-buffer
        (set-buffer-multibyte nil)
!       (insert (string-make-unibyte
!                (bindat-pack
!                 fcookie-index-spec
!                 `((:version . 2)
!                   (:count . ,count)
!                   (:longest . ,max)
!                   (:shortest . ,min)
!                   (:flags . 0)
!                   (:delim . ,delim)
!                   (:offset . ,(mapcar (lambda (o)
!                                         (list (cons :foo o)))
!                                       (nreverse offsets)))))))
        (let ((coding-system-for-write 'raw-text-unix))
          (write-file (or index (concat cookies ".dat")))))))
  @end lisp
--- 2314,2332 ----
                offsets (cons (1- p) offsets))))
      (with-temp-buffer
        (set-buffer-multibyte nil)
!       (insert
!        (string-make-unibyte
!         (bindat-pack
!          fcookie-index-spec
!          `((:version . 2)
!            (:count . ,count)
!            (:longest . ,max)
!            (:shortest . ,min)
!            (:flags . 0)
!            (:delim . ,delim)
!            (:offset . ,(mapcar (lambda (o)
!                                  (list (cons :foo o)))
!                                (nreverse offsets)))))))
        (let ((coding-system-for-write 'raw-text-unix))
          (write-file (or index (concat cookies ".dat")))))))
  @end lisp
***************
*** 2392,2398 ****
  The corresponding decoded structure:
  
  @lisp
! (setq decoded-structure (bindat-unpack packet-spec binary-data))
       @result{}
  ((header
    (dest-ip   . [192 168 1 100])
--- 2396,2402 ----
  The corresponding decoded structure:
  
  @lisp
! (setq decoded (bindat-unpack packet-spec binary-data))
       @result{}
  ((header
    (dest-ip   . [192 168 1 100])
***************
*** 2415,2421 ****
  Fetching data from this structure:
  
  @lisp
! (bindat-get-field decoded-structure 'item 1 'id)
       @result{} "BCDEFG"
  @end lisp
  
--- 2419,2425 ----
  Fetching data from this structure:
  
  @lisp
! (bindat-get-field decoded 'item 1 'id)
       @result{} "BCDEFG"
  @end lisp