mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-24

Browse source 
Creator:  Michael Olson <mwolson@gnu.org>

Fix ERC compiler warnings.
This commit is contained in:
Miles Bader 2006-01-30 00:29:49 +00:00
parent a1ab640dd5
commit 059e26cf0d
4 changed files with 47 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/erc/erc-speedbar.el
View file

@ -39,6 +39,7 @@
(require 'erc)
(require 'speedbar)
(condition-case nil (require 'dframe) (error nil))
(eval-when-compile (require 'cl))
;;; Customization:
@ -110,7 +111,7 @@ This will add a speedbar major display mode."
(defun erc-speedbar-buttons (buffer)
"Create buttons for speedbar in BUFFER."
(erase-buffer)
(let (serverp chanp)
(let (serverp chanp queryp)
(with-current-buffer buffer
(setq serverp (eq buffer (process-buffer erc-server-process)))
(setq chanp (erc-channel-p (erc-default-target)))
@ -338,7 +339,7 @@ The INDENT level is ignored."
(raise-frame (window-frame bwin)))
(if speedbar-power-click
(let ((pop-up-frames t)) (select-window (display-buffer buffer)))
(select-frame speedbar-attached-frame)
(dframe-select-attached-frame speedbar-frame)
(switch-to-buffer buffer))))))
(defun erc-speedbar-line-text ()