diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2011-04-25 23:17:52 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-04-25 23:17:52 -0700 |
| commit | 671875dac181f7f1337f21d013a9c3d5f235ddf2 (patch) | |
| tree | 4091c2537439713df8efe8d3376116a6db3eb1c5 /lisp/progmodes/prolog.el | |
| parent | f904488ff40dcee3e340b63a6386dde124d1241c (diff) | |
| parent | 0c6b7b19e52ba18b5d4fd2d4b73b133a0a721603 (diff) | |
| download | emacs-671875dac181f7f1337f21d013a9c3d5f235ddf2.tar.gz | |
Merge from mainline.
Diffstat (limited to 'lisp/progmodes/prolog.el')
| -rw-r--r-- | lisp/progmodes/prolog.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el index 62472edfbe4..283919c131e 100644 --- a/lisp/progmodes/prolog.el +++ b/lisp/progmodes/prolog.el @@ -1010,7 +1010,7 @@ VERSION is of the format (Major . Minor)" (define-key map "\C-c\C-l" 'prolog-consult-file) (define-key map "\C-c\C-z" 'switch-to-prolog)) -(defun prolog-mode-keybindings-inferior (map) +(defun prolog-mode-keybindings-inferior (_map) "Define keybindings for inferior Prolog mode in MAP." ;; No inferior mode specific keybindings now. ) @@ -2012,15 +2012,14 @@ Argument BOUND is a buffer position limiting searching." ;; NB: This function *MUST* have this optional argument since XEmacs ;; assumes it. This does not mean we have to use it... -(defun prolog-indent-line (&optional whole-exp) +(defun prolog-indent-line (&optional _whole-exp) "Indent current line as Prolog code. With argument, indent any additional lines of the same clause rigidly along with this one (not yet)." (interactive "p") (let ((indent (prolog-indent-level)) - (pos (- (point-max) (point))) beg) + (pos (- (point-max) (point)))) (beginning-of-line) - (setq beg (point)) (skip-chars-forward " \t") (indent-line-to indent) (if (> (- (point-max) pos) (point)) |