← Back to branch summary

~hexmode/mediawiki-el/trunk

« back to all changes in this revision

Viewing changes to mediawiki.el

  • Committer: Mark A. Hershberger
  • Date: 2012-05-28 02:06:28 UTC
  • Revision ID: mah@everybody.org-20120528020628-zouliupdgnzse5hi
Add debugging option

Show diffs side-by-side

added added

removed removed

Lines of Context:
mediawiki.el
10
10
;; Created: Sep 17 2004
11
11
;; Keywords: mediawiki wikipedia network wiki
12
12
;; URL: http://launchpad.net/mediawiki-el
13
 
;; Last Modified: <2012-01-18 13:06:02 mah>
 
13
;; Last Modified: <2012-05-27 22:06:10 mah>
14
14
 
15
 
(defconst mediawiki-version "2.2.3"
 
15
(defconst mediawiki-version "2.2.4"
16
16
  "Current version of mediawiki.el")
17
17
 
18
18
;; This file is NOT (yet) part of GNU Emacs.
453
453
  (declare (special url-http-end-of-headers))
454
454
  (let ((kill-this-buffer (current-buffer)))
455
455
    (when (and (integerp status) (not (< status 300)))
456
 
      (kill-buffer kill-this-buffer)
 
456
      (when (not mediawiki-debug) (kill-buffer kill-this-buffer))
457
457
      (error "Oops! Invalid status: %d" status))
458
458
 
459
459
    (when (or (not (boundp 'url-http-end-of-headers))
460
460
              (not url-http-end-of-headers))
461
 
      (kill-buffer kill-this-buffer)
 
461
      (when (not mediawiki-debug) (kill-buffer kill-this-buffer))
462
462
      (error "Oops! Don't see end of headers!"))
463
463
 
464
464
    ;; FIXME: need to limit redirects
474
474
      (let ((str (decode-coding-string
475
475
                  (buffer-substring-no-properties (point) (point-max))
476
476
                  'utf-8)))
477
 
        (kill-buffer (current-buffer))
 
477
        (when (not mediawiki-debug) (kill-buffer (current-buffer)))
478
478
        (when bufname
479
479
          (set-buffer bufname)
480
480
          (insert str)
498
498
  :tag "MediaWiki Site Default"
499
499
  :group 'mediawiki)
500
500
 
 
501
(defcustom mediawiki-debug nil
 
502
  "Turn on debugging (non-nil)"
 
503
  :type 'boolean
 
504
  :tag "MediaWiki Debugging"
 
505
  :group 'mediawiki)
 
506
 
501
507
(defcustom mediawiki-site-alist '(("Wikipedia"
502
508
                                   "http://en.wikipedia.org/w/"
503
509
                                   "username"
1848
1854
      (narrow-to-region b e)
1849
1855
      (run-hook-with-args-until-success 'mediawiki-draft-handler-functions)
1850
1856
    (when (equal mediawiki-draft-buffer (buffer-name))
1851
 
      (kill-buffer (current-buffer))
 
1857
      (when (not mediawiki-debug) (kill-buffer (current-buffer)))
1852
1858
      (jump-to-register mediawiki-draft-register)))))
1853
1859
 
1854
1860
;;;###autoload
1941
1947
                  (append-to-file (point-min) (point-max)
1942
1948
                                  mediawiki-draft-data-file)))))
1943
1949
    (when (equal mediawiki-draft-buffer (buffer-name))
1944
 
      (kill-buffer (current-buffer)))
 
1950
      (when (not mediawiki-debug) (kill-buffer (current-buffer))))
1945
1951
    (switch-to-buffer target-buffer)))
1946
1952
 
1947
1953
(define-derived-mode mediawiki-draft-mode text-mode "MW-Draft"