[Emacs-diffs] Changes to emacs/lisp/progmodes/pascal.el

[Masatake YAMATO]

Index: emacs/lisp/progmodes/pascal.el
diff -c emacs/lisp/progmodes/pascal.el:1.48 emacs/lisp/progmodes/pascal.el:1.49
*** emacs/lisp/progmodes/pascal.el:1.48 Mon Oct 10 17:14:02 2005
--- emacs/lisp/progmodes/pascal.el      Sun Oct 16 09:31:44 2005
***************
*** 1378,1384 ****
            ((and (not (null (cdr allcomp))) (= (length pascal-str)
                                                (length match)))
             (with-output-to-temp-buffer "*Completions*"
!              (display-completion-list allcomp))
             ;; Wait for a keypress. Then delete *Completion*  window
             (momentary-string-display "" (point))
             (delete-window (get-buffer-window (get-buffer "*Completions*")))
--- 1378,1384 ----
            ((and (not (null (cdr allcomp))) (= (length pascal-str)
                                                (length match)))
             (with-output-to-temp-buffer "*Completions*"
!              (display-completion-list allcomp pascal-str))
             ;; Wait for a keypress. Then delete *Completion*  window
             (momentary-string-display "" (point))
             (delete-window (get-buffer-window (get-buffer "*Completions*")))
***************
*** 1398,1404 ****
                    (all-completions pascal-str 'pascal-completion))))
      ;; Show possible completions in a temporary buffer.
      (with-output-to-temp-buffer "*Completions*"
!       (display-completion-list allcomp))
      ;; Wait for a keypress. Then delete *Completion*  window
      (momentary-string-display "" (point))
      (delete-window (get-buffer-window (get-buffer "*Completions*")))))
--- 1398,1404 ----
                    (all-completions pascal-str 'pascal-completion))))
      ;; Show possible completions in a temporary buffer.
      (with-output-to-temp-buffer "*Completions*"
!       (display-completion-list allcomp pascal-str))
      ;; Wait for a keypress. Then delete *Completion*  window
      (momentary-string-display "" (point))
      (delete-window (get-buffer-window (get-buffer "*Completions*")))))