← Back to branch summary

~a-roehler/python-mode/XEmacs-compat-test

« back to all changes in this revision

Viewing changes to python-mode.el

  • Committer: Andreas Roehler
  • Date: 2012-01-21 13:14:40 UTC
  • Revision ID: andreas.roehler@online.de-20120121131440-t25pw1t0yy1nizu3
https://launchpad.net/bugs/919541
py-backward-into-nomenclature caps names, lp:919541, fixed







Show diffs side-by-side

added added

removed removed

Lines of Context:
python-mode.el
4825
4825
  (interactive "p")
4826
4826
  (or arg (setq arg 1))
4827
4827
  (let ((case-fold-search nil)
 
4828
        (orig (point))
4828
4829
        erg)
4829
4830
    (if (> arg 0)
4830
4831
        (setq erg (re-search-forward
4832
4833
                   ;; "\\(\\W\\|[_]\\)*\\([A-Z]*[a-z0-9]*\\)"
4833
4834
                   "\\(\\W\\|[_]\\)*\\([A-Z]*[[:lower:][:digit:]]*\\)"
4834
4835
                   (point-max) t arg))
4835
 
      (while (and (< arg 0)
4836
 
                  (setq erg (re-search-backward
4837
 
                             "\\(\\W\\|[[:alnum:]]+\\)[A-Z]+\\|\\(\\W\\|[_]\\)\\w+"
4838
 
                             (point-min) 0)))
4839
 
        (forward-char 1)
4840
 
        (setq arg (1+ arg)))
4841
 
      (when erg (setq erg (1+ erg))))
 
4836
      (while (and (not (bobp)) (< arg 0))
 
4837
        (when (or (skip-chars-backward "[[:blank:][:punct:]]")
 
4838
                  (skip-chars-backward "_"))
 
4839
          (forward-char -1))
 
4840
        (or
 
4841
         (not (eq 0 (skip-chars-backward "[:upper:]")))
 
4842
         (not (eq 0 (skip-chars-backward "[:lower:]")))
 
4843
         (skip-chars-backward "[:digit:]"))
 
4844
        (setq arg (1+ arg))))
 
4845
    (if (< (point) orig)
 
4846
        (setq erg (point))
 
4847
      (when erg
 
4848
        (setq erg (1+ erg))))
4842
4849
    (when (and py-report-position-p (or iact (interactive-p))) (message "%s" erg))
4843
4850
    erg))
4844
4851
 
4850
4857
 
4851
4858
A `nomenclature' is a fancy way of saying AWordWithMixedCaseNotUnderscores."
4852
4859
  (interactive "p")
4853
 
  (py-forward-into-nomenclature (- arg)))
 
4860
  (setq arg (or arg 1))
 
4861
  (py-forward-into-nomenclature (- arg) arg))
4854
4862
 
4855
4863
(defalias 'py-match-paren 'match-paren)
4856
4864