← Back to branch summary

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

« back to all changes in this revision

Viewing changes to ecb-help.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-help.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-help.el,v 1.103 2004/01/21 17:17:46 berndl Exp $
 
29
;; $Id: ecb-help.el,v 1.108 2004/08/27 15:42:22 berndl Exp $
30
30
 
31
31
;;; Commentary:
32
32
;;
227
227
already the current values of all ECB options, the current backtrace-buffer if
228
228
there is any and the current message-buffer. You will be asked for a
229
229
problem-report subject and then you must insert a description of the problem.
230
 
Please describe the problem as detailed as possible!"
 
230
Please describe the problem as detailed as possible!
 
231
 
 
232
*IMPORTANT*: Cause of extra appearance of SPAM in the mailing-lists,
 
233
SourceForge has changed its policy: Now it is only possible to post to the
 
234
mailing-list for users who have subscribed this mailing-list. So please be
 
235
aware you will not be able to send comments, bug reports and improvement
 
236
suggestions before you have subscribed the ECB-mailing-list. See the section
 
237
\"Mailing-list\" at the ECB-website at http://ecb.sourceforge.net how to do
 
238
this."
 
239
 
231
240
  (interactive)
232
241
  (when (or ecb-minor-mode
233
242
            (y-or-n-p "ECB should be active when submitting a problem-report. Force report? "))
300
309
    (let* ((messages-buffer 
301
310
            (get-buffer
302
311
             (if ecb-running-xemacs " *Message-Log*" "*Messages*")))
303
 
           (backtrace-buffer (get-buffer "*Backtrace*")))
 
312
           (backtrace-buffer (get-buffer "*Backtrace*"))
 
313
           (tag-dump-buffer (get-buffer "*ecb-tag-dump*")))
 
314
 
 
315
      ;;insert the contents of the tag-dump buffer if it is there. 
 
316
      (insert "\n\n-----------------------------------------------------\n")
 
317
      (if tag-dump-buffer
 
318
          (progn
 
319
            (insert "The contents of the *ecb-tag-dump* buffer were\n\n")
 
320
            (insert-buffer tag-dump-buffer)
 
321
            ;; we must force the mark
 
322
            (goto-char (mark t))
 
323
            (insert "\nEnd Insert *ecb-tag-dump* buffer" ))
 
324
        (insert "There was no *ecb-tag-dump* buffer" ))
 
325
      (insert "\n-----------------------------------------------------\n\n")
 
326
 
 
327
      ;;insert the contents of the trace-output buffer if it is there. 
 
328
;;       (insert "\n\n-----------------------------------------------------\n")
 
329
;;       (if tag-dump-buffer
 
330
;;           (progn
 
331
;;             (insert "The contents of the *ecb-tag-dump* buffer were\n\n")
 
332
;;          (insert-buffer tag-dump-buffer)
 
333
;;             ;; we must force the mark
 
334
;;          (goto-char (mark t))
 
335
;;             (insert "\nEnd Insert *ecb-tag-dump* buffer" ))
 
336
;;         (insert "There was no *ecb-tag-dump* buffer" ))
 
337
;;       (insert "\n-----------------------------------------------------\n\n")
304
338
 
305
339
      ;;insert the contents of the backtrace buffer if it is there. 
306
340
      (insert "\n\n-----------------------------------------------------\n")
359
393
                                    ,(if (boundp 'ediff-quit-hook)
360
394
                                         'ediff-quit-hook)))
361
395
                          (function (lambda (l r)
362
 
                                      (string< (symbol-name l)
363
 
                                               (symbol-name r))))))
 
396
                                      (ecb-string< (symbol-name l)
 
397
                                                   (symbol-name r))))))
364
398
        (semantic-vars (sort (delete nil
365
399
                                     `(semantic-after-toplevel-cache-change-hook
366
400
                                       semantic-after-partial-cache-change-hook
370
404
                                       semantic-uml-colon-string
371
405
                                       semantic-orphaned-member-metaparent-type))
372
406
                             (function (lambda (l r)
373
 
                                         (string< (symbol-name l)
374
 
                                                  (symbol-name r))))))
 
407
                                         (ecb-string< (symbol-name l)
 
408
                                                      (symbol-name r))))))
375
409
        (speedbar-vars (sort '(speedbar-dynamic-tags-function-list
376
410
                               speedbar-tag-hierarchy-method
377
411
                               speedbar-tag-group-name-minimum-length
381
415
                               speedbar-fetch-etags-arguments
382
416
                               speedbar-fetch-etags-parse-list)
383
417
                             (function (lambda (l r)
384
 
                                         (string< (symbol-name l)
385
 
                                                  (symbol-name r))))))
 
418
                                         (ecb-string< (symbol-name l)
 
419
                                                      (symbol-name r))))))
386
420
        (ecb-options (mapcar
387
421
                      'intern
388
422
                      (sort
389
423
                       (let (completion-ignore-case)
390
424
                         (all-completions "ecb-" obarray 'user-variable-p))
391
 
                       'string-lessp)))
 
425
                       'ecb-string<)))
392
426
        (ecb-internal-vars (sort '(ecb-path-selected-directory
393
427
                                   ecb-path-selected-source
394
428
                                   ecb-use-semantic-grouping
402
436
                                   ecb-windows-hidden
403
437
                                   ecb-toggle-layout-state
404
438
                                   ecb-current-maximized-ecb-buffer-name
405
 
                                   ecb-tree-buffers-of-current-layout)
 
439
                                   ecb-special-ecb-buffers-of-current-layout)
406
440
                                 (function (lambda (l r)
407
 
                                             (string< (symbol-name l)
408
 
                                                      (symbol-name r)))))))
 
441
                                             (ecb-string< (symbol-name l)
 
442
                                                          (symbol-name r)))))))
409
443
    (append emacs-vars semantic-vars speedbar-vars
410
444
            ecb-internal-vars ecb-options)))
411
445