(bdf-generate-font): New argument CHARSET. Give WIDTH

[gnu-emacs] / lisp / progmodes / etags.el

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index e6f081d1df61c7c23f976ca33b5624c52dd95def..fdc73dd47af099884d26593cc65db6c334e71df8 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -35,7 +35,7 @@ Use the `etags' program to make a tags table file.")
 ;; Make M-x set-variable tags-file-name like M-x visit-tags-table.
 ;;;###autoload (put 'tags-file-name 'variable-interactive "fVisit tags table: ")
 
-(defgroup etags "Tags tables"
+(defgroup etags nil "Tags tables"
   :group 'tools)
 
 ;;;###autoload
@@ -58,7 +58,7 @@ to the current list (as opposed to starting a new list)."
   :group 'etags
   :type '(choice (const :tag "Do" t)
                 (const :tag "Don't" nil)
-                (const :tag "Ask" ask-user)))
+                (other :tag "Ask" ask-user)))
 
 (defcustom tags-revert-without-query nil
   "*Non-nil means reread a TAGS table without querying, if it has changed."
@@ -110,7 +110,8 @@ Otherwise, `find-tag-default' is used."
 (defcustom find-tag-marker-ring-length 16
   "*Length of marker rings `find-tag-marker-ring' and `tags-location-ring'."
   :group 'etags
-  :type 'integer)
+  :type 'integer
+  :version "20.3")
 
 (defvar find-tag-marker-ring (make-ring find-tag-marker-ring-length)
   "Ring of markers which are locations from which \\[find-tag] was invoked.")
@@ -1650,9 +1651,7 @@ see the doc of that variable if you want to add names to the list."
 (defun select-tags-table-quit ()
   "Kill the buffer and delete the selected window."
   (interactive)
-  (kill-buffer (current-buffer))
-  (or (one-window-p)
-      (delete-window)))
+  (quit-window t (selected-window)))
 \f
 ;;; Note, there is another definition of this function in bindings.el.
 ;;;###autoload