[Emacs-diffs] /srv/bzr/emacs/trunk r112603: * progmodes/octave.el (octave-indent-defun): Mark obsolete.

[Leo Liu]

------------------------------------------------------------
revno: 112603
committer: Leo Liu <address@hidden>
branch nick: trunk
timestamp: Thu 2013-05-16 16:52:02 +0800
message:
  * progmodes/octave.el (octave-indent-defun): Mark obsolete.
  (octave-mode-menu, octave-mode-map): Remove its uses.
modified:
  lisp/ChangeLog
  lisp/progmodes/octave.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-16 07:56:46 +0000
+++ b/lisp/ChangeLog    2013-05-16 08:52:02 +0000
@@ -1,3 +1,8 @@
+2013-05-16  Leo Liu  <address@hidden>
+
+       * progmodes/octave.el (octave-indent-defun): Mark obsolete.
+       (octave-mode-menu, octave-mode-map): Remove its uses.
+
 2013-05-16  Reto Zimmermann  <address@hidden>
 
        Sync with upstream vhdl mode v3.34.2.

=== modified file 'lisp/progmodes/octave.el'
--- a/lisp/progmodes/octave.el  2013-05-15 08:17:22 +0000
+++ b/lisp/progmodes/octave.el  2013-05-16 08:52:02 +0000
@@ -98,8 +98,6 @@
   (let ((map (make-sparse-keymap)))
     (define-key map "\M-."     'octave-find-definition)
     (define-key map "\M-\C-j"  'octave-indent-new-comment-line)
-    ;; C-c C-q is also used by cc modes for similar command
-    (define-key map "\C-c\C-q" 'octave-indent-defun)
     (define-key map "\C-c\C-p" 'octave-previous-code-line)
     (define-key map "\C-c\C-n" 'octave-next-code-line)
     (define-key map "\C-c\C-a" 'octave-beginning-of-line)
@@ -134,27 +132,26 @@
   "Menu for Octave mode."
   '("Octave"
     ("Lines"
-      ["Previous Code Line"    octave-previous-code-line t]
-      ["Next Code Line"                octave-next-code-line t]
-      ["Begin of Continuation" octave-beginning-of-line t]
-      ["End of Continuation"   octave-end-of-line t]
-      ["Split Line at Point"   octave-indent-new-comment-line t])
+     ["Previous Code Line"     octave-previous-code-line t]
+     ["Next Code Line"         octave-next-code-line t]
+     ["Begin of Continuation"  octave-beginning-of-line t]
+     ["End of Continuation"    octave-end-of-line t]
+     ["Split Line at Point"    octave-indent-new-comment-line t])
     ("Blocks"
-      ["Mark Block"            octave-mark-block t]
-      ["Close Block"           smie-close-block t])
+     ["Mark Block"             octave-mark-block t]
+     ["Close Block"            smie-close-block t])
     ("Functions"
-      ["Indent Function"       octave-indent-defun t]
-      ["Insert Function"       octave-insert-defun t]
-      ["Update function file comment" octave-update-function-file-comment t])
+     ["Insert Function"        octave-insert-defun t]
+     ["Update function file comment" octave-update-function-file-comment t])
     "-"
     ("Debug"
-      ["Send Current Line"     octave-send-line t]
-      ["Send Current Block"    octave-send-block t]
-      ["Send Current Function" octave-send-defun t]
-      ["Send Region"           octave-send-region t]
-      ["Show Process Buffer"   octave-show-process-buffer t]
-      ["Hide Process Buffer"   octave-hide-process-buffer t]
-      ["Kill Process"          octave-kill-process t])
+     ["Send Current Line"      octave-send-line t]
+     ["Send Current Block"     octave-send-block t]
+     ["Send Current Function"  octave-send-defun t]
+     ["Send Region"            octave-send-region t]
+     ["Show Process Buffer"    octave-show-process-buffer t]
+     ["Hide Process Buffer"    octave-hide-process-buffer t]
+     ["Kill Process"           octave-kill-process t])
     "-"
     ["Indent Line"             indent-according-to-mode t]
     ["Complete Symbol"         completion-at-point t]
@@ -1111,14 +1108,8 @@
     (insert (concat " " octave-continuation-string))
     (reindent-then-newline-and-indent))))
 
-(defun octave-indent-defun ()
-  "Properly indent the Octave function which contains point."
-  (interactive)
-  (save-excursion
-    (mark-defun)
-    (message "Indenting function...")
-    (indent-region (point) (mark) nil))
-  (message "Indenting function...done."))
+(define-obsolete-function-alias
+  'octave-indent-defun 'prog-indent-sexp "24.4")
 
 
 ;;; Motion