bug#36260: 27.0.50; isearchb should be reimplemented without iswitchb

[Lars Ingebrigtsen]

iswitchb is an obsolete package, but isearchb is implemented on top of
it.  It should be possible to reimplement it on top of any of the
un-obsoleted completion packages (like ido), but it's a complete
reimplementation:

41 matches in 36 lines for "iswitchb" in buffer: isearchb.el
      1:;;; isearchb --- a marriage between iswitchb and isearch
     30:;; iswitchb!  It is not intended to replace it, however, as it works
     37:;; employed by iswitchb).  To use it this way, add to your .emacs:
     59:;; iswitchb, using the prefix you've typed so far.  This is handy when
     75:;;   killing iswitchb.el and then trying to switch back is broken
     80:(require 'iswitchb)                     ;FIXME: Don't rely on iswitchb!
     84:  :group 'iswitchb)
    116:(defun isearchb-iswitchb ()
    117:  "isearchb's custom version of the `iswitchb' command.
    119:`iswitchb-read-buffer'."
    122:         (iswitchb-method 'samewindow)
    123:         (buf (iswitchb-read-buffer prompt nil nil nil iswitchb-text 
t)))
    124:    (if (eq iswitchb-exit 'findfile)
    129:            (iswitchb-visit-buffer buf)
    131:          (iswitchb-possible-new-buffer buf))))))
    137:    (setq iswitchb-text nil))
    138:  (unless iswitchb-text
    139:    (setq iswitchb-text "")
    140:    (iswitchb-make-buflist nil))
    142:      (setq iswitchb-rescan t
    143:            iswitchb-text (concat iswitchb-text
    146:  (iswitchb-set-matches)
    147:  (let* ((match (car iswitchb-matches))
    152:          (isearchb-iswitchb))
    155:          (message "isearchb: %s%s" iswitchb-text
    156:                   (iswitchb-completions iswitchb-text))
    157:        (if (= 1 (length iswitchb-matches))
    158:            (message "isearchb: %s (only match)" iswitchb-text)
    159:          (message "isearchb: %s" iswitchb-text))))))
    178:        (setq iswitchb-text
    179:              (substring iswitchb-text 0 (1- (length iswitchb-text))))
    180:        (if (= 0 (length iswitchb-text))
    185:        (setq this-command 'isearchb-iswitchb))
    187:        (iswitchb-next-match)
    191:        (iswitchb-prev-match)
    222:    (setq iswitchb-text nil



In GNU Emacs 27.0.50 (build 2, x86_64-pc-linux-gnu, GTK+ Version 3.22.11)
 of 2019-06-16 built on stories
Repository revision: a1508e8d2db0003fafb53ae51ed1104ba957db6b
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.11902000
System Description: Debian GNU/Linux 9 (stretch)


-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no