← Back to branch summary

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

« back to all changes in this revision

Viewing changes to ecb-examples.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-examples.el
26
26
;; GNU Emacs; see the file COPYING.  If not, write to the Free Software
27
27
;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
28
28
 
29
 
;; $Id: ecb-examples.el,v 1.12 2003/08/06 09:15:19 berndl Exp $
 
29
;; $Id: ecb-examples.el,v 1.13 2004/05/06 09:02:08 berndl Exp $
30
30
 
31
31
;;; Commentary:
32
32
;;
135
135
          ;; synchronizing for real filesource-buffers
136
136
            
137
137
          ;; Let us be smart: We synchronize only if sourcebuffer has changed
138
 
          (when (not (string= (ecb-fix-filename filename)
139
 
                              (ecb-fix-filename
140
 
                               ecb-examples-bufferinfo-last-file)))
 
138
          (when (not (ecb-string= (ecb-fix-filename filename)
 
139
                                  (ecb-fix-filename
 
140
                                   ecb-examples-bufferinfo-last-file)))
141
141
            ;; set new last-file-name so we can check next time if changed
142
142
            (setq ecb-examples-bufferinfo-last-file filename)
143
143
            ;; we display the file-infos for current source-file
361
361
          "ECB must be activated!")
362
362
  (assert (equal (selected-frame) ecb-frame) nil
363
363
          "The ECB-frame must be selected!")
364
 
  (assert (not (string= ecb-layout-name "example-layout1")) nil
 
364
  (assert (not (ecb-string= ecb-layout-name "example-layout1")) nil
365
365
          "The examples-layout1 is already active!")
366
366
  
367
367
  ;; activating the synchronization of the bufferinfo-window
373
373
 
374
374
  ;; switch to our prefered layout
375
375
  (setq ecb-windows-height 6)
376
 
  (setq ecb-compile-window-height 5)
377
 
  (ecb-layout-switch "example-layout1"))
 
376
  (setq ecb-compile-window-height 8)
 
377
  (let ((ecb-change-layout-preserves-compwin-state nil))
 
378
    (ecb-layout-switch "example-layout1")))
378
379
 
379
380
 
380
381
 
392
393
          "ECB must be activated!")
393
394
  (assert (equal (selected-frame) ecb-frame) nil
394
395
          "The ECB-frame must be selected!")
395
 
  (assert (string= ecb-layout-name "example-layout1") nil
 
396
  (assert (ecb-string= ecb-layout-name "example-layout1") nil
396
397
          "The example-layout1 is not active!")
397
398
  
398
399
  (remove-hook 'ecb-current-buffer-sync-hook