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

[Francesco Potortì]

Index: emacs/lisp/progmodes/etags.el
diff -c emacs/lisp/progmodes/etags.el:1.168 emacs/lisp/progmodes/etags.el:1.169
*** emacs/lisp/progmodes/etags.el:1.168 Thu Jun 20 07:27:01 2002
--- emacs/lisp/progmodes/etags.el       Fri Sep  6 11:12:15 2002
***************
*** 785,791 ****
  
  ;; Read a tag name from the minibuffer with defaulting and completion.
  (defun find-tag-tag (string)
!   (let* ((default (funcall (or find-tag-default-function
                               (get major-mode 'find-tag-default-function)
                               'find-tag-default)))
         (spec (completing-read (if default
--- 785,794 ----
  
  ;; Read a tag name from the minibuffer with defaulting and completion.
  (defun find-tag-tag (string)
!   (let* ((completion-ignore-case (if (memq tags-case-fold-search '(t nil))
!                                    tags-case-fold-search
!                                  case-fold-search))
!        (default (funcall (or find-tag-default-function
                               (get major-mode 'find-tag-default-function)
                               'find-tag-default)))
         (spec (completing-read (if default
***************
*** 1910,1916 ****
        (error "%s"
             (substitute-command-keys
              "No tags table loaded; try \\[visit-tags-table]")))
!   (let ((pattern (funcall (or find-tag-default-function
                              (get major-mode 'find-tag-default-function)
                              'find-tag-default)))
        beg
--- 1913,1922 ----
        (error "%s"
             (substitute-command-keys
              "No tags table loaded; try \\[visit-tags-table]")))
!   (let ((completion-ignore-case (if (memq tags-case-fold-search '(t nil))
!                                   tags-case-fold-search
!                                 case-fold-search))
!       (pattern (funcall (or find-tag-default-function
                              (get major-mode 'find-tag-default-function)
                              'find-tag-default)))
        beg