Commit 7dd51bf1 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

Don't add modes to which-func-modes if already set to t.

* lisp/progmodes/verilog-mode.el (verilog-mode): Check whether
  which-func-modes is t before adding verilog-mode.
  Reported by Andy Moreton <andrewjmoreton@gmail.com>.

* lisp/mh-e/mh-folder.el (top): Check whether which-func-modes
  is t before adding mh-folder-mode.
parent d64a438f
2012-04-21 Juanma Barranquero <lekktu@gmail.com>
* progmodes/verilog-mode.el (verilog-mode): Check whether
which-func-modes is t before adding verilog-mode.
Reported by Andy Moreton <andrewjmoreton@gmail.com>.
2012-04-21 Leo Liu <sdl.web@gmail.com> 2012-04-21 Leo Liu <sdl.web@gmail.com>
* net/rcirc.el (rcirc): Avoid error when process-contact returns * net/rcirc.el (rcirc): Avoid error when process-contact returns t.
t.
2012-04-21 Michael Vehrs <Michael.Burschik@gmx.de> 2012-04-21 Michael Vehrs <Michael.Burschik@gmx.de>
......
2012-04-21 Juanma Barranquero <lekktu@gmail.com>
* mh-folder.el (top): Check whether which-func-modes is t before
adding mh-folder-mode.
2011-11-20 Bill Wohler <wohler@newt.com> 2011-11-20 Bill Wohler <wohler@newt.com>
* Release MH-E version 8.3.1. * Release MH-E version 8.3.1.
......
...@@ -520,7 +520,7 @@ font-lock is done highlighting.") ...@@ -520,7 +520,7 @@ font-lock is done highlighting.")
;; Register mh-folder-mode as supporting which-function-mode... ;; Register mh-folder-mode as supporting which-function-mode...
(mh-require 'which-func nil t) (mh-require 'which-func nil t)
(when (boundp 'which-func-modes) (when (and (boundp 'which-func-modes) (listp which-func-modes))
(add-to-list 'which-func-modes 'mh-folder-mode)) (add-to-list 'which-func-modes 'mh-folder-mode))
;; Shush compiler. ;; Shush compiler.
......
...@@ -3592,7 +3592,7 @@ Key bindings specific to `verilog-mode-map' are: ...@@ -3592,7 +3592,7 @@ Key bindings specific to `verilog-mode-map' are:
(set (make-local-variable 'imenu-generic-expression) (set (make-local-variable 'imenu-generic-expression)
verilog-imenu-generic-expression) verilog-imenu-generic-expression)
;; Tell which-func-modes that imenu knows about verilog ;; Tell which-func-modes that imenu knows about verilog
(when (boundp 'which-func-modes) (when (and (boundp 'which-func-modes) (listp which-func-modes))
(add-to-list 'which-func-modes 'verilog-mode)) (add-to-list 'which-func-modes 'verilog-mode))
;; hideshow support ;; hideshow support
(when (boundp 'hs-special-modes-alist) (when (boundp 'hs-special-modes-alist)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment