[Emacs-diffs] /srv/bzr/emacs/trunk r109904: Fix use of obsolete variables in vhdl-mode.el.

[Chong Yidong]

------------------------------------------------------------
revno: 109904
author: Rüdiger Sonderfeld <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Thu 2012-09-06 17:36:40 +0800
message:
  Fix use of obsolete variables in vhdl-mode.el.
  
  * progmodes/vhdl-mode.el (vhdl-speedbar-initialize): Don't use
  obsolete alias speedbar-key-map.
  (vhdl-doc-variable, vhdl-doc-mode): Use called-interactively-p.
  (vhdl-index-menu-init): Don't use obsolete variable font-lock-maximum-size.
modified:
  lisp/ChangeLog
  lisp/progmodes/vhdl-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-09-06 09:29:32 +0000
+++ b/lisp/ChangeLog    2012-09-06 09:36:40 +0000
@@ -1,5 +1,17 @@
 2012-09-06  Chong Yidong  <address@hidden>
 
+       * progmodes/vhdl-mode.el 
+
+2012-09-06  Rüdiger Sonderfeld  <address@hidden>
+
+       * progmodes/vhdl-mode.el (vhdl-speedbar-initialize): Don't use
+       obsolete alias speedbar-key-map.
+       (vhdl-doc-variable, vhdl-doc-mode): Use called-interactively-p.
+       (vhdl-index-menu-init): Don't use obsolete variable
+       font-lock-maximum-size.
+
+2012-09-06  Chong Yidong  <address@hidden>
+
        * frame.el (window-system-version): Mark as obsolete.
 
 2012-09-06  Juri Linkov  <address@hidden>

=== modified file 'lisp/progmodes/vhdl-mode.el'
--- a/lisp/progmodes/vhdl-mode.el       2012-07-25 05:48:19 +0000
+++ b/lisp/progmodes/vhdl-mode.el       2012-09-06 09:36:40 +0000
@@ -4138,10 +4138,7 @@
   (set (make-local-variable 'imenu-generic-expression)
        vhdl-imenu-generic-expression)
   (when (and vhdl-index-menu (fboundp 'imenu))
-    (if (or (not (boundp 'font-lock-maximum-size))
-           (> font-lock-maximum-size (buffer-size)))
-       (imenu-add-to-menubar "Index")
-      (message "Scanning buffer for index...buffer too big"))))
+    (imenu-add-to-menubar "Index")))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Source file menu (using `easy-menu.el')
@@ -14385,10 +14382,10 @@
          (define-key vhdl-speedbar-key-map (int-to-string key)
            `(lambda () (interactive) (vhdl-speedbar-set-depth ,key)))
          (setq key (1+ key)))))
-    (define-key speedbar-key-map "h"
+    (define-key speedbar-mode-map "h"
       (lambda () (interactive)
        (speedbar-change-initial-expansion-list "vhdl directory")))
-    (define-key speedbar-key-map "H"
+    (define-key speedbar-mode-map "H"
       (lambda () (interactive)
        (speedbar-change-initial-expansion-list "vhdl project")))
     ;; menu
@@ -17400,7 +17397,8 @@
   "Display VARIABLE's documentation in *Help* buffer."
   (interactive)
   (unless (featurep 'xemacs)
-    (help-setup-xref (list #'vhdl-doc-variable variable) (interactive-p)))
+    (help-setup-xref (list #'vhdl-doc-variable variable)
+                    (called-interactively-p 'interactive)))
   (with-output-to-temp-buffer
       (if (fboundp 'help-buffer) (help-buffer) "*Help*")
     (princ (documentation-property variable 'variable-documentation))
@@ -17412,7 +17410,8 @@
   "Display VHDL Mode documentation in *Help* buffer."
   (interactive)
   (unless (featurep 'xemacs)
-    (help-setup-xref (list #'vhdl-doc-mode) (interactive-p)))
+    (help-setup-xref (list #'vhdl-doc-mode)
+                    (called-interactively-p 'interactive)))
   (with-output-to-temp-buffer
       (if (fboundp 'help-buffer) (help-buffer) "*Help*")
     (princ mode-name)