← Back to branch summary

~ubuntu-branches/ubuntu/saucy/ecb/saucy

« back to all changes in this revision

Viewing changes to ecb-winman-support.el

  • Committer: Bazaar Package Importer
  • Author(s): Joerg Jaspert
  • Date: 2004-09-01 22:15:18 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20040901221518-0jfdt2apb2rj69ey
Tags: 2.27-1
And include latest Upstream too...

Show diffs side-by-side

added added

removed removed

Lines of Context:
ecb-winman-support.el
21
21
;; GNU Emacs; see the file COPYING.  If not, write to the Free Software
22
22
;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
23
23
 
24
 
;; $Id: ecb-winman-support.el,v 1.10 2004/02/02 11:57:54 berndl Exp $
 
24
;; $Id: ecb-winman-support.el,v 1.12 2004/07/15 15:26:27 berndl Exp $
25
25
 
26
26
;;; Commentary
27
27
;;
149
149
            (ecb-enable-advices ecb-winman-escreen-adviced-functions)
150
150
            (add-hook 'escreen-goto-screen-hook
151
151
                      'ecb-winman-escreen-goto-escreen-hook)
152
 
            (message "ECB %s: support for escreen enabled." ecb-version))
 
152
            (ecb-info-message "Support for escreen enabled."))
153
153
        (error
154
154
         (ecb-winman-escreen-disable-support)
155
155
         (ecb-error "The escreen-support can not be properly installed!")))
209
209
          (progn
210
210
            (require 'winring)
211
211
            (ecb-enable-advices ecb-winman-winring-adviced-functions)
212
 
            (message "ECB %s: support for winring enabled." ecb-version))
 
212
            (ecb-info-message "Support for winring enabled."))
213
213
        (error
214
214
         (ecb-winman-winring-disable-support)
215
215
         (ecb-error "The winring-support can not be properly installed!")))
229
229
ECB if we set the name `ecb-winman-winring-name'."
230
230
  ;; Because this is an after advice of winring-name-of-current returns here
231
231
  ;; already the new name!
232
 
  (when (string= (winring-name-of-current) ecb-winman-winring-name)
 
232
  (when (ecb-string= (winring-name-of-current) ecb-winman-winring-name)
233
233
    ;; we do this only the first time
234
234
    (when (null ecb-winman-winring-ecb-frame)
235
235
      (setq ecb-winman-winring-ecb-frame
244
244
 
245
245
(defadvice winring-duplicate-configuration (before ecb)
246
246
  "Prevent the ECB-window-configuration from being duplicated."
247
 
  (if (string= (winring-name-of-current) ecb-winman-winring-name)
 
247
  (if (ecb-string= (winring-name-of-current) ecb-winman-winring-name)
248
248
      (ecb-error "The ECB-window-configuration can not be duplicated!")))
249
249
 
250
250
(defadvice winring-restore-configuration (before ecb)
251
251
  "Deactivates ECB if the ECB-window-configuration is active."
252
 
  (if (and (string= (winring-name-of-current) ecb-winman-winring-name)
 
252
  (if (and (ecb-string= (winring-name-of-current) ecb-winman-winring-name)
253
253
           (boundp 'ecb-minor-mode)
254
254
           ecb-minor-mode)
255
255
      (let ((ecb-split-edit-window-after-start 'before-deactivation))