Mercurial > emacs
comparison lisp/progmodes/python.el @ 80756:76e75acf7e4e
Fix typos (sync from the trunk).
* facemenu.el (facemenu-unlisted-faces): Fix obsolescence declaration.
* hi-lock.el (hi-lock-mode): Fix typo in docstring.
* icomplete.el (icomplete-compute-delay, icomplete-get-keys): Doc fixes.
(icomplete-delay-completions-threshold): Fix typo in docstring.
* speedbar.el (speedbar-stealthy-function-list)
(speedbar-verbosity-level, speedbar-supported-extension-expressions)
(speedbar-update-current-file, speedbar-add-indicator)
(speedbar-tag-expand): Reflow docstrings.
(speedbar-use-imenu-flag, speedbar-use-tool-tips-flag)
(speedbar-ignored-directory-regexp, speedbar-file-unshown-regexp)
(speedbar-file-regexp, speedbar-message, speedbar-item-info)
(speedbar-files-item-info, speedbar-fetch-replacement-function)
(speedbar-maybe-add-localized-support)
(speedbar-generic-list-positioned-group-p, speedbar-insert-generic-list)
(speedbar-extract-one-symbol, speedbar-recenter-to-top)
(speedbar-recenter, speedbar-separator-face): Fix typos in docstrings.
(speedbar-ignored-directory-expressions, speedbar-handle-delete-frame)
(speedbar-show-info-under-mouse, speedbar-directory-buttons)
(speedbar-check-vc-this-line, speedbar-files-line-directory)
(speedbar-buffer-buttons, speedbar-buffer-buttons-temp)
(speedbar-buffers-line-directory): Doc fixes.
* tool-bar.el (tool-bar-add-item): Fix typo in docstring.
* emacs-lisp/edebug.el (edebug-unwrap*, edebug-signal)
(edebug-restore-status): Doc fixes.
(edebug-gensym, edebug-top-level-nonstop, edebug-eval-display)
(edebug-eval-result-list, edebug-eval-redisplay, edebug)
(edebug-trace): Fix typos in docstrings.
* emulation/tpu-edt.el (tpu-match-beginning, tpu-match-end)
(tpu-check-match, tpu-goto-breadcrumb, tpu-reset-screen-size)
(tpu-toggle-overwrite-mode, tpu-include, tpu-get, tpu-what-line)
(tpu-insert-escape, tpu-insert-formfeed, tpu-end-define-macro-key)
(tpu-check-search-case, tpu-select, tpu-unselect, tpu-trim-line-ends)
(tpu-toggle-control-keys): Fix typos in docstrings.
(tpu-kill-buffer): Doc fix.
(tpu-make-file-buffer-list, tpu-toggle-regexp, tpu-cut)
(tpu-append-region, tpu-delete-current-char, tpu-emacs-replace):
Reflow docstrings.
* eshell/em-smart.el (eshell-review-quick-commands): Doc fix.
* eshell/esh-arg.el (eshell-quote-backslash): Fix typo in docstring.
* play/solitaire.el (solitaire, solitaire-mode-map, solitaire-mode-hook)
(solitaire-mode, solitaire, solitaire-solve): Fix typos in docstrings.
* progmodes/gdb-ui.el (gdb-source-info): Fix typo in docstring.
* progmodes/python.el (python-comment-line-p, python-blank-line-p)
(python-skip-out): Doc fixes.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Tue, 26 Aug 2008 11:02:51 +0000 |
parents | 54fa0c487055 |
children |
comparison
equal
deleted
inserted
replaced
80755:fad57aa21c2b | 80756:76e75acf7e4e |
---|---|
348 (condition-case () | 348 (condition-case () |
349 (progn (backward-up-list) t) ; actually within brackets | 349 (progn (backward-up-list) t) ; actually within brackets |
350 (error nil)))))))) | 350 (error nil)))))))) |
351 | 351 |
352 (defun python-comment-line-p () | 352 (defun python-comment-line-p () |
353 "Return non-nil iff current line has only a comment." | 353 "Return non-nil if and only if current line has only a comment." |
354 (save-excursion | 354 (save-excursion |
355 (end-of-line) | 355 (end-of-line) |
356 (when (eq 'comment (syntax-ppss-context (syntax-ppss))) | 356 (when (eq 'comment (syntax-ppss-context (syntax-ppss))) |
357 (back-to-indentation) | 357 (back-to-indentation) |
358 (looking-at (rx (or (syntax comment-start) line-end)))))) | 358 (looking-at (rx (or (syntax comment-start) line-end)))))) |
359 | 359 |
360 (defun python-blank-line-p () | 360 (defun python-blank-line-p () |
361 "Return non-nil iff current line is blank." | 361 "Return non-nil if and only if current line is blank." |
362 (save-excursion | 362 (save-excursion |
363 (beginning-of-line) | 363 (beginning-of-line) |
364 (looking-at "\\s-*$"))) | 364 (looking-at "\\s-*$"))) |
365 | 365 |
366 (defun python-beginning-of-string () | 366 (defun python-beginning-of-string () |
850 | 850 |
851 (defun python-skip-out (&optional forward syntax) | 851 (defun python-skip-out (&optional forward syntax) |
852 "Skip out of any nested brackets. | 852 "Skip out of any nested brackets. |
853 Skip forward if FORWARD is non-nil, else backward. | 853 Skip forward if FORWARD is non-nil, else backward. |
854 If SYNTAX is non-nil it is the state returned by `syntax-ppss' at point. | 854 If SYNTAX is non-nil it is the state returned by `syntax-ppss' at point. |
855 Return non-nil iff skipping was done." | 855 Return non-nil if and only if skipping was done." |
856 (let ((depth (syntax-ppss-depth (or syntax (syntax-ppss)))) | 856 (let ((depth (syntax-ppss-depth (or syntax (syntax-ppss)))) |
857 (forward (if forward -1 1))) | 857 (forward (if forward -1 1))) |
858 (unless (zerop depth) | 858 (unless (zerop depth) |
859 (if (> depth 0) | 859 (if (> depth 0) |
860 ;; Skip forward out of nested brackets. | 860 ;; Skip forward out of nested brackets. |