home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / alt / lucidem / bug / 527 < prev    next >
Encoding:
Text File  |  1993-01-27  |  9.2 KB  |  273 lines
  1. x-gateway: rodan.UU.NET from bug-lucid-emacs to alt.lucid-emacs.bug; Wed, 27 Jan 1993 17:53:46 EST
  2. Date: Wed, 27 Jan 1993 18:29:48 +0100
  3. From: Guido.Bosch%loria.fr@lucid.com (Guido Bosch)
  4. Message-ID: <9301271729.AA08635@moebius.loria.fr>
  5. Subject: Re: vm search bug
  6. Reply-To: bosch%loria.fr@lucid.com (Guido Bosch)
  7. Newsgroups: alt.lucid-emacs.bug
  8. Path: sparky!uunet!wendy-fate.uu.net!bug-lucid-emacs
  9. Sender: bug-lucid-emacs-request@lucid.com
  10. Lines: 261
  11.  
  12. My guess that the vm search bug is due to a modification of the
  13. isearch package was right. Here is the patch that fixes it.
  14.  
  15. Apply it with 
  16.  
  17.     patch < vm-search-patch2 
  18.  
  19. in the vm directory and  byte compile the file vm-search.el. Then tye
  20.  
  21.     rm vm.elc
  22.     make VM
  23.  
  24.  
  25. This should do it.
  26.  
  27.     Guido
  28.  
  29. -------------------------- vm-search-patch2 --------------------------
  30. *** vm-search.el.orig    Wed Jan 27 15:36:21 1993
  31. --- vm-search.el    Wed Jan 27 18:07:58 1993
  32. ***************
  33. *** 80,88 ****
  34.                   (set-window-hscroll (selected-window) 0))
  35.                  (other-window 1))
  36.                (goto-char found-point)))))
  37. !      (let ((char (if quit-flag
  38.                ?\C-g
  39. !                (read-char))))
  40.          (setq quit-flag nil adjusted nil)
  41.          ;; Meta character means exit search.
  42.          (cond ((and (>= char 128)
  43. --- 80,90 ----
  44.                   (set-window-hscroll (selected-window) 0))
  45.                  (other-window 1))
  46.                (goto-char found-point)))))
  47. !      (let* ((char (if quit-flag
  48.                ?\C-g
  49. !                (read-char)))
  50. !         (isearch-cmd (lookup-key isearch-mode-map char)))
  51. ! 
  52.          (setq quit-flag nil adjusted nil)
  53.          ;; Meta character means exit search.
  54.          (cond ((and (>= char 128)
  55. ***************
  56. *** 89,101 ****
  57.                  search-exit-option)
  58.             (setq unread-command-event (character-to-event char))
  59.             (throw 'search-done t))
  60. !          ((eq char search-exit-char)
  61.             ;; Esc means exit search normally.
  62.             ;; Except, if first thing typed, it means do nonincremental
  63.             (if (= 0 (length search-string))
  64.                 (vm-nonincremental-search forward regexp))
  65.             (throw 'search-done t))
  66. !          ((= char ?\C-g)
  67.             ;; ^G means the user tried to quit.
  68.             (ding)
  69.             (discard-input)
  70. --- 91,103 ----
  71.                  search-exit-option)
  72.             (setq unread-command-event (character-to-event char))
  73.             (throw 'search-done t))
  74. !          ((eq isearch-cmd 'isearch-exit)
  75.             ;; Esc means exit search normally.
  76.             ;; Except, if first thing typed, it means do nonincremental
  77.             (if (= 0 (length search-string))
  78.                 (vm-nonincremental-search forward regexp))
  79.             (throw 'search-done t))
  80. !          ((eq isearch-cmd 'isearch-abort)
  81.             ;; ^G means the user tried to quit.
  82.             (ding)
  83.             (discard-input)
  84. ***************
  85. *** 108,116 ****
  86.               ;; If search is failing, rub out until it is once more
  87.               ;;  successful.
  88.               (while (not success) (vm-isearch-pop))))
  89. !          ((or (eq char search-repeat-char)
  90. !               (eq char search-reverse-char))
  91. !           (if (eq forward (eq char search-repeat-char))
  92.                 ;; C-s in forward or C-r in reverse.
  93.                 (if (equal search-string "")
  94.                 ;; If search string is empty, use last one.
  95. --- 110,120 ----
  96.               ;; If search is failing, rub out until it is once more
  97.               ;;  successful.
  98.               (while (not success) (vm-isearch-pop))))
  99. ! 
  100. !          ((or (eq isearch-cmd 'isearch-repeat-forward)
  101. !               (eq isearch-cmd 'isearch-repeat-backward))
  102. !           (if (eq forward  
  103. !                (eq isearch-cmd 'isearch-repeat-forward))
  104.                 ;; C-s in forward or C-r in reverse.
  105.                 (if (equal search-string "")
  106.                 ;; If search string is empty, use last one.
  107. ***************
  108. *** 122,128 ****
  109.                          search-string ""))
  110.               ;; If already have what to search for, repeat it.
  111.               (or success
  112. !                 (progn (goto-char (if forward (point-min) (point-max)))
  113.                      (setq wrapped t))))
  114.               ;; C-s in reverse or C-r in forward, change direction.
  115.               (setq forward (not forward)))
  116. --- 126,133 ----
  117.                          search-string ""))
  118.               ;; If already have what to search for, repeat it.
  119.               (or success
  120. !                 (progn (goto-char (if forward (point-min) 
  121. !                         (point-max)))
  122.                      (setq wrapped t))))
  123.               ;; C-s in reverse or C-r in forward, change direction.
  124.               (setq forward (not forward)))
  125. ***************
  126. *** 131,137 ****
  127.             (or (equal search-string "")
  128.                 (vm-isearch-search))
  129.             (vm-isearch-push-state))
  130. !          ((= char search-delete-char)
  131.             ;; Rubout means discard last input item and move point
  132.             ;; back.  If buffer is empty, just beep.
  133.             (if (null (cdr cmds))
  134. --- 136,142 ----
  135.             (or (equal search-string "")
  136.                 (vm-isearch-search))
  137.             (vm-isearch-push-state))
  138. !          ((eq isearch-cmd 'isearch-delete-char)
  139.             ;; Rubout means discard last input item and move point
  140.             ;; back.  If buffer is empty, just beep.
  141.             (if (null (cdr cmds))
  142. ***************
  143. *** 138,145 ****
  144.                 (ding)
  145.               (vm-isearch-pop)))
  146.            (t
  147. !           (cond ((or (eq char search-yank-word-char)
  148. !                  (eq char search-yank-line-char))
  149.                ;; ^W means gobble next word from buffer.
  150.                ;; ^Y means gobble rest of line from buffer.
  151.                (let ((word (save-excursion
  152. --- 143,150 ----
  153.                 (ding)
  154.               (vm-isearch-pop)))
  155.            (t
  156. !           (cond ((or (eq isearch-cmd 'isearch-yank-word)
  157. !                  (eq isearch-cmd 'isearch-yank-line))
  158.                ;; ^W means gobble next word from buffer.
  159.                ;; ^Y means gobble rest of line from buffer.
  160.                (let ((word (save-excursion
  161. ***************
  162. *** 148,154 ****
  163.                          (buffer-substring
  164.                       (point)
  165.                       (save-excursion
  166. !                       (if (eq char search-yank-line-char)
  167.                             (end-of-line)
  168.                           (forward-word 1))
  169.                         (point))))))
  170. --- 153,159 ----
  171.                          (buffer-substring
  172.                       (point)
  173.                       (save-excursion
  174. !                       (if (eq isearch-cmd 'isearch-yank-line)
  175.                             (end-of-line)
  176.                           (forward-word 1))
  177.                         (point))))))
  178. ***************
  179. *** 160,166 ****
  180.                ;; Any other control char =>
  181.                ;;  unread it and exit the search normally.
  182.                ((and search-exit-option
  183. !                    (/= char search-quote-char)
  184.                      (or (= char ?\177)
  185.                      (and (< char ? ) (/= char ?\t) (/= char ?\r))))
  186.                 (setq unread-command-event (character-to-event char))
  187. --- 165,171 ----
  188.                ;; Any other control char =>
  189.                ;;  unread it and exit the search normally.
  190.                ((and search-exit-option
  191. !                    (not (eq isearch-cmd 'isearch-quote-char))
  192.                      (or (= char ?\177)
  193.                      (and (< char ? ) (/= char ?\t) (/= char ?\r))))
  194.                 (setq unread-command-event (character-to-event char))
  195. ***************
  196. *** 168,174 ****
  197.                (t
  198.                 ;; Any other character => add it to the
  199.                 ;;  search string and search.
  200. !               (cond ((= char search-quote-char)
  201.                    (setq char (read-quoted-char
  202.                            (vm-isearch-message t))))
  203.                   ((= char ?\r)
  204. --- 173,179 ----
  205.                (t
  206.                 ;; Any other character => add it to the
  207.                 ;;  search string and search.
  208. !               (cond ((eq isearch-cmd 'isearch-quote-char)
  209.                    (setq char (read-quoted-char
  210.                            (vm-isearch-message t))))
  211.                   ((= char ?\r)
  212. ***************
  213. *** 189,195 ****
  214.               ;; Go back to place last successful search started
  215.               ;; or to the last ^S/^R (barrier), whichever is nearer.
  216.               (and regexp success cmds
  217. !              (cond ((memq char '(?* ??))
  218.                   (setq adjusted t)
  219.                   (let ((cs (nth (if forward
  220.                              5 ; other-end
  221. --- 194,200 ----
  222.               ;; Go back to place last successful search started
  223.               ;; or to the last ^S/^R (barrier), whichever is nearer.
  224.               (and regexp success cmds
  225. !              (cond ((eq isearch-cmd 'isearch-*-char)
  226.                   (setq adjusted t)
  227.                   (let ((cs (nth (if forward
  228.                              5 ; other-end
  229. ***************
  230. *** 202,208 ****
  231.                      (if forward
  232.                          (max cs barrier)
  233.                        (min cs barrier)))))
  234. !                    ((eq char ?\|)
  235.                   (setq adjusted t)
  236.                   (goto-char barrier))))
  237.               ;; In reverse regexp search, adding a character at
  238. --- 207,213 ----
  239.                      (if forward
  240.                          (max cs barrier)
  241.                        (min cs barrier)))))
  242. !                    ((eq isearch-cmd 'isearch-|-char)
  243.                   (setq adjusted t)
  244.                   (goto-char barrier))))
  245.               ;; In reverse regexp search, adding a character at
  246. ***************
  247. *** 337,348 ****
  248.       (message "%s" message)
  249.       ;; Read 1 char and switch to word search if it is ^W.
  250.       (setq char (read-char))
  251. !     (if (eq char search-yank-word-char)
  252.       (setq message (if forward "VM Word search: " "VM Word search backward: "))
  253.         ;; Otherwise let that 1 char be part of the search string.
  254.         (setq unread-command-event (character-to-event char)))
  255.       (setq function
  256. !       (if (eq char search-yank-word-char)
  257.             (if forward 'word-search-forward 'word-search-backward)
  258.           (if regexp
  259.           (if forward 're-search-forward 're-search-backward)
  260. --- 342,353 ----
  261.       (message "%s" message)
  262.       ;; Read 1 char and switch to word search if it is ^W.
  263.       (setq char (read-char))
  264. !     (if (eq (lookup-key isearch-mode-map char) 'isearch-yank-word)
  265.       (setq message (if forward "VM Word search: " "VM Word search backward: "))
  266.         ;; Otherwise let that 1 char be part of the search string.
  267.         (setq unread-command-event (character-to-event char)))
  268.       (setq function
  269. !       (if (eq (lookup-key isearch-mode-map char) 'isearch-yank-word)
  270.             (if forward 'word-search-forward 'word-search-backward)
  271.           (if regexp
  272.           (if forward 're-search-forward 're-search-backward)
  273.