Commit 1b3b87df authored by Stefan Monnier's avatar Stefan Monnier
Browse files

Use define-derived-mode (and derived-mode-p).

* lisp/play/snake.el (snake-mode):
* lisp/play/mpuz.el (mpuz-mode):
* lisp/play/landmark.el (lm-mode):
* lisp/play/blackbox.el (blackbox-mode):
* lisp/play/5x5.el (5x5-mode):
* lisp/obsolete/options.el (Edit-options-mode):
* lisp/net/quickurl.el (quickurl-list-mode):
* lisp/net/newst-treeview.el (newsticker-treeview-mode):
* lisp/mail/rmailsum.el (rmail-summary-mode):
* lisp/mail/mspools.el (mspools-mode):
* lisp/locate.el (locate-mode):
* lisp/ibuffer.el (ibuffer-mode):
* lisp/emulation/ws-mode.el (wordstar-mode):
* lisp/emacs-lisp/debug.el (debugger-mode):
* lisp/array.el (array-mode):
* lisp/net/eudc.el (eudc-mode): Use define-derived-mode.
* lisp/net/mairix.el (mairix-searches-mode-font-lock-keywords):
Move initialization into declaration.
(mairix-searches-mode): Use define-derived-mode.
* lisp/net/eudc-hotlist.el (eudc-hotlist-mode): Use define-derived-mode.
(eudc-edit-hotlist): Use dolist.
* lisp/man.el (Man-mode-syntax-table): Rename from man-mode-syntax-table.
(Man-mode): Use define-derived-mode.
* lisp/info.el (Info-edit-mode-map): Rename from Info-edit-map.
(Info-edit-mode): Use define-derived-mode.
(Info-cease-edit): Use Info-mode.
* lisp/eshell/esh-mode.el (eshell-mode-syntax-table): Move initialization
into declaration.
(eshell-mode): Use define-derived-mode.
* lisp/chistory.el (command-history-mode-map): Rename from
command-history-map.
(command-history-mode): Use define-derived-mode.
* lisp/calc/calc.el (calc-trail-mode-map): New var.
(calc-trail-mode): Use define-derived-mode.
(calc-trail-buffer): Set calc-main-buffer manually.
* lisp/bookmark.el (bookmark-insert-annotation): New function.
(bookmark-edit-annotation): Use it.
(bookmark-edit-annotation-mode): Make it a proper major mode.
(bookmark-send-edited-annotation): Use derived-mode-p.
* lisp/arc-mode.el (archive-mode): Move kill-all-local-variables a tiny bit
closer to its ideal place.  Use \' to match EOS.

* lisp/cedet/semantic/grammar.el (semantic-grammar-mode): Use define-derived-mode.
(semantic-grammar-mode-syntax-table): Rename from
semantic-grammar-syntax-table.
(semantic-grammar-mode-map): Rename from semantic-grammar-map.
* lisp/cedet/data-debug.el (data-debug-mode-map): Rename from data-debug-map.
(data-debug-mode): Use define-derived-mode.

* lisp/gnus/score-mode.el (gnus-score-mode-map): Move initialization
into declaration.
(gnus-score-mode): Use define-derived-mode.
* lisp/gnus/gnus-srvr.el (gnus-browse-mode): Use define-derived-mode.
* lisp/gnus/gnus-kill.el (gnus-kill-file-mode-map): Move initialization
into declaration.
(gnus-kill-file-mode): Use define-derived-mode.
(gnus-kill-file-edit-file, gnus-kill-file-enter-kill, gnus-kill):
Use derived-mode-p.
* lisp/gnus/gnus-group.el (gnus-group-mode): Use define-derived-mode.
(gnus-group-setup-buffer, gnus-group-name-at-point)
(gnus-group-make-web-group, gnus-group-enter-directory)
(gnus-group-suspend): Use derived-mode-p.
* lisp/gnus/gnus-cus.el (gnus-custom-mode): Use define-derived-mode.
* lisp/gnus/gnus-bookmark.el (gnus-bookmark-bmenu-mode): Use define-derived-mode.
* lisp/gnus/gnus-art.el (gnus-article-mode): Use define-derived-mode.
(gnus-article-setup-buffer, gnus-article-prepare)
(gnus-article-prepare-display, gnus-sticky-article)
(gnus-kill-sticky-article-buffer, gnus-kill-sticky-article-buffers)
(gnus-bind-safe-url-regexp, gnus-article-check-buffer)
(gnus-article-read-summary-keys): Use derived-mode-p.
parent 765da53c
2013-09-11 Stefan Monnier <monnier@iro.umontreal.ca> 2013-09-11 Stefan Monnier <monnier@iro.umontreal.ca>
* play/snake.el (snake-mode):
* play/mpuz.el (mpuz-mode):
* play/landmark.el (lm-mode):
* play/blackbox.el (blackbox-mode):
* play/5x5.el (5x5-mode):
* obsolete/options.el (Edit-options-mode):
* net/quickurl.el (quickurl-list-mode):
* net/newst-treeview.el (newsticker-treeview-mode):
* mail/rmailsum.el (rmail-summary-mode):
* mail/mspools.el (mspools-mode):
* locate.el (locate-mode):
* ibuffer.el (ibuffer-mode):
* emulation/ws-mode.el (wordstar-mode):
* emacs-lisp/debug.el (debugger-mode):
* array.el (array-mode):
* net/eudc.el (eudc-mode): Use define-derived-mode.
* net/mairix.el (mairix-searches-mode-font-lock-keywords):
Move initialization into declaration.
(mairix-searches-mode): Use define-derived-mode.
* net/eudc-hotlist.el (eudc-hotlist-mode): Use define-derived-mode.
(eudc-edit-hotlist): Use dolist.
* man.el (Man-mode-syntax-table): Rename from man-mode-syntax-table.
(Man-mode): Use define-derived-mode.
* info.el (Info-edit-mode-map): Rename from Info-edit-map.
(Info-edit-mode): Use define-derived-mode.
(Info-cease-edit): Use Info-mode.
* eshell/esh-mode.el (eshell-mode-syntax-table): Move initialization
into declaration.
(eshell-mode): Use define-derived-mode.
* chistory.el (command-history-mode-map): Rename from
command-history-map.
(command-history-mode): Use define-derived-mode.
* calc/calc.el (calc-trail-mode-map): New var.
(calc-trail-mode): Use define-derived-mode.
(calc-trail-buffer): Set calc-main-buffer manually.
* bookmark.el (bookmark-insert-annotation): New function.
(bookmark-edit-annotation): Use it.
(bookmark-edit-annotation-mode): Make it a proper major mode.
(bookmark-send-edited-annotation): Use derived-mode-p.
* arc-mode.el (archive-mode): Move kill-all-local-variables a tiny bit
closer to its ideal place. Use \' to match EOS.
* profiler.el (profiler-calltree-find): Use function-equal. * profiler.el (profiler-calltree-find): Use function-equal.
2013-09-10 Glenn Morris <rgm@gnu.org> 2013-09-10 Glenn Morris <rgm@gnu.org>
......
...@@ -683,9 +683,9 @@ archive. ...@@ -683,9 +683,9 @@ archive.
;; At present we cannot create archives from scratch ;; At present we cannot create archives from scratch
(funcall (or (default-value 'major-mode) 'fundamental-mode)) (funcall (or (default-value 'major-mode) 'fundamental-mode))
(if (and (not force) archive-files) nil (if (and (not force) archive-files) nil
(kill-all-local-variables)
(let* ((type (archive-find-type)) (let* ((type (archive-find-type))
(typename (capitalize (symbol-name type)))) (typename (capitalize (symbol-name type))))
(kill-all-local-variables)
(make-local-variable 'archive-subtype) (make-local-variable 'archive-subtype)
(setq archive-subtype type) (setq archive-subtype type)
...@@ -761,7 +761,7 @@ archive. ...@@ -761,7 +761,7 @@ archive.
((looking-at "..-l[hz][0-9ds]-") 'lzh) ((looking-at "..-l[hz][0-9ds]-") 'lzh)
((looking-at "....................[\334]\247\304\375") 'zoo) ((looking-at "....................[\334]\247\304\375") 'zoo)
((and (looking-at "\C-z") ; signature too simple, IMHO ((and (looking-at "\C-z") ; signature too simple, IMHO
(string-match "\\.[aA][rR][cC]$" (string-match "\\.[aA][rR][cC]\\'"
(or buffer-file-name (buffer-name)))) (or buffer-file-name (buffer-name))))
'arc) 'arc)
;; This pattern modeled on the BSD/GNU+Linux `file' command. ;; This pattern modeled on the BSD/GNU+Linux `file' command.
......
...@@ -800,7 +800,7 @@ Return COLUMN." ...@@ -800,7 +800,7 @@ Return COLUMN."
(put 'array-mode 'mode-class 'special) (put 'array-mode 'mode-class 'special)
;;;###autoload ;;;###autoload
(defun array-mode () (define-derived-mode array-mode fundamental-mode "Array"
"Major mode for editing arrays. "Major mode for editing arrays.
Array mode is a specialized mode for editing arrays. An array is Array mode is a specialized mode for editing arrays. An array is
...@@ -863,9 +863,6 @@ take a numeric prefix argument): ...@@ -863,9 +863,6 @@ take a numeric prefix argument):
\\[array-display-local-variables] Display the current values of local variables. \\[array-display-local-variables] Display the current values of local variables.
Entering array mode calls the function `array-mode-hook'." Entering array mode calls the function `array-mode-hook'."
(interactive)
(kill-all-local-variables)
(make-local-variable 'array-buffer-line) (make-local-variable 'array-buffer-line)
(make-local-variable 'array-buffer-column) (make-local-variable 'array-buffer-column)
(make-local-variable 'array-row) (make-local-variable 'array-row)
...@@ -888,13 +885,9 @@ Entering array mode calls the function `array-mode-hook'." ...@@ -888,13 +885,9 @@ Entering array mode calls the function `array-mode-hook'."
(+ (floor (1- array-max-column) array-columns-per-line) (+ (floor (1- array-max-column) array-columns-per-line)
(if array-rows-numbered 2 1))) (if array-rows-numbered 2 1)))
(message "") (message "")
(setq major-mode 'array-mode)
(setq mode-name "Array")
(force-mode-line-update) (force-mode-line-update)
(set (make-local-variable 'truncate-lines) t) (set (make-local-variable 'truncate-lines) t)
(setq overwrite-mode 'overwrite-mode-textual) (setq overwrite-mode 'overwrite-mode-textual))
(use-local-map array-mode-map)
(run-mode-hooks 'array-mode-hook))
......
...@@ -862,31 +862,25 @@ It takes one argument, the name of the bookmark, as a string.") ...@@ -862,31 +862,25 @@ It takes one argument, the name of the bookmark, as a string.")
map) map)
"Keymap for editing an annotation of a bookmark.") "Keymap for editing an annotation of a bookmark.")
(defun bookmark-insert-annotation (bookmark-name-or-record)
(defun bookmark-edit-annotation-mode (bookmark-name-or-record)
"Mode for editing the annotation of bookmark BOOKMARK-NAME-OR-RECORD.
When you have finished composing, type \\[bookmark-send-annotation].
\\{bookmark-edit-annotation-mode-map}"
(interactive)
(kill-all-local-variables)
(make-local-variable 'bookmark-annotation-name)
(setq bookmark-annotation-name bookmark-name-or-record)
(use-local-map bookmark-edit-annotation-mode-map)
(setq major-mode 'bookmark-edit-annotation-mode
mode-name "Edit Bookmark Annotation")
(insert (funcall bookmark-edit-annotation-text-func bookmark-name-or-record)) (insert (funcall bookmark-edit-annotation-text-func bookmark-name-or-record))
(let ((annotation (bookmark-get-annotation bookmark-name-or-record))) (let ((annotation (bookmark-get-annotation bookmark-name-or-record)))
(if (and annotation (not (string-equal annotation ""))) (if (and annotation (not (string-equal annotation "")))
(insert annotation))) (insert annotation))))
(run-mode-hooks 'text-mode-hook))
(define-derived-mode bookmark-edit-annotation-mode
text-mode "Edit Bookmark Annotation"
"Mode for editing the annotation of bookmarks.
When you have finished composing, type \\[bookmark-send-annotation].
\\{bookmark-edit-annotation-mode-map}")
(defun bookmark-send-edited-annotation () (defun bookmark-send-edited-annotation ()
"Use buffer contents as annotation for a bookmark. "Use buffer contents as annotation for a bookmark.
Lines beginning with `#' are ignored." Lines beginning with `#' are ignored."
(interactive) (interactive)
(if (not (eq major-mode 'bookmark-edit-annotation-mode)) (if (not (derived-mode-p 'bookmark-edit-annotation-mode))
(error "Not in bookmark-edit-annotation-mode")) (error "Not in bookmark-edit-annotation-mode"))
(goto-char (point-min)) (goto-char (point-min))
(while (< (point) (point-max)) (while (< (point) (point-max))
...@@ -906,7 +900,10 @@ Lines beginning with `#' are ignored." ...@@ -906,7 +900,10 @@ Lines beginning with `#' are ignored."
(defun bookmark-edit-annotation (bookmark-name-or-record) (defun bookmark-edit-annotation (bookmark-name-or-record)
"Pop up a buffer for editing bookmark BOOKMARK-NAME-OR-RECORD's annotation." "Pop up a buffer for editing bookmark BOOKMARK-NAME-OR-RECORD's annotation."
(pop-to-buffer (generate-new-buffer-name "*Bookmark Annotation Compose*")) (pop-to-buffer (generate-new-buffer-name "*Bookmark Annotation Compose*"))
(bookmark-edit-annotation-mode bookmark-name-or-record)) (bookmark-insert-annotation bookmark-name-or-record)
(bookmark-edit-annotation-mode)
(set (make-local-variable 'bookmark-annotation-name)
bookmark-name-or-record))
(defun bookmark-buffer-name () (defun bookmark-buffer-name ()
......
...@@ -1387,7 +1387,12 @@ Notations: 3.14e6 3.14 * 10^6 ...@@ -1387,7 +1387,12 @@ Notations: 3.14e6 3.14 * 10^6
(calc-check-defines)) (calc-check-defines))
(setplist 'calc-define nil))))) (setplist 'calc-define nil)))))
(defun calc-trail-mode (&optional buf) (defvar calc-trail-mode-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map calc-mode-map)
map))
(define-derived-mode calc-trail-mode fundamental-mode "Calc Trail"
"Calc Trail mode. "Calc Trail mode.
This mode is used by the *Calc Trail* buffer, which records all results This mode is used by the *Calc Trail* buffer, which records all results
obtained by the GNU Emacs Calculator. obtained by the GNU Emacs Calculator.
...@@ -1397,26 +1402,18 @@ the Trail. ...@@ -1397,26 +1402,18 @@ the Trail.
This buffer uses the same key map as the *Calculator* buffer; calculator This buffer uses the same key map as the *Calculator* buffer; calculator
commands given here will actually operate on the *Calculator* stack." commands given here will actually operate on the *Calculator* stack."
(interactive)
(fundamental-mode)
(use-local-map calc-mode-map)
(setq major-mode 'calc-trail-mode)
(setq mode-name "Calc Trail")
(setq truncate-lines t) (setq truncate-lines t)
(setq buffer-read-only t) (setq buffer-read-only t)
(make-local-variable 'overlay-arrow-position) (make-local-variable 'overlay-arrow-position)
(make-local-variable 'overlay-arrow-string) (make-local-variable 'overlay-arrow-string)
(when buf
(set (make-local-variable 'calc-main-buffer) buf))
(when (= (buffer-size) 0) (when (= (buffer-size) 0)
(let ((buffer-read-only nil)) (let ((buffer-read-only nil))
(insert (propertize "Emacs Calculator Trail\n" 'face 'italic)))) (insert (propertize "Emacs Calculator Trail\n" 'face 'italic)))))
(run-mode-hooks 'calc-trail-mode-hook))
(defun calc-create-buffer () (defun calc-create-buffer ()
"Create and initialize a buffer for the Calculator." "Create and initialize a buffer for the Calculator."
(set-buffer (get-buffer-create "*Calculator*")) (set-buffer (get-buffer-create "*Calculator*"))
(or (eq major-mode 'calc-mode) (or (derived-mode-p 'calc-mode)
(calc-mode)) (calc-mode))
(setq max-lisp-eval-depth (max max-lisp-eval-depth 1000)) (setq max-lisp-eval-depth (max max-lisp-eval-depth 1000))
(when calc-always-load-extensions (when calc-always-load-extensions
...@@ -1439,7 +1436,7 @@ commands given here will actually operate on the *Calculator* stack." ...@@ -1439,7 +1436,7 @@ commands given here will actually operate on the *Calculator* stack."
(when (get-buffer-window "*Calc Keypad*") (when (get-buffer-window "*Calc Keypad*")
(calc-keypad) (calc-keypad)
(set-buffer (window-buffer))) (set-buffer (window-buffer)))
(if (eq major-mode 'calc-mode) (if (derived-mode-p 'calc-mode)
(calc-quit) (calc-quit)
(let ((oldbuf (current-buffer))) (let ((oldbuf (current-buffer)))
(calc-create-buffer) (calc-create-buffer)
...@@ -1490,7 +1487,7 @@ commands given here will actually operate on the *Calculator* stack." ...@@ -1490,7 +1487,7 @@ commands given here will actually operate on the *Calculator* stack."
(if (and (equal (buffer-name) "*Gnuplot Trail*") (if (and (equal (buffer-name) "*Gnuplot Trail*")
(> (recursion-depth) 0)) (> (recursion-depth) 0))
(exit-recursive-edit) (exit-recursive-edit)
(if (eq major-mode 'calc-edit-mode) (if (derived-mode-p 'calc-edit-mode)
(calc-edit-finish arg) (calc-edit-finish arg)
(if calc-was-keypad-mode (if calc-was-keypad-mode
(calc-keypad) (calc-keypad)
...@@ -1504,13 +1501,13 @@ commands given here will actually operate on the *Calculator* stack." ...@@ -1504,13 +1501,13 @@ commands given here will actually operate on the *Calculator* stack."
(if (and (equal (buffer-name) "*Gnuplot Trail*") (if (and (equal (buffer-name) "*Gnuplot Trail*")
(> (recursion-depth) 0)) (> (recursion-depth) 0))
(exit-recursive-edit)) (exit-recursive-edit))
(if (eq major-mode 'calc-edit-mode) (if (derived-mode-p 'calc-edit-mode)
(calc-edit-cancel) (calc-edit-cancel)
(if (and interactive (if (and interactive
calc-embedded-info calc-embedded-info
(eq (current-buffer) (aref calc-embedded-info 0))) (eq (current-buffer) (aref calc-embedded-info 0)))
(calc-embedded nil) (calc-embedded nil)
(unless (eq major-mode 'calc-mode) (unless (derived-mode-p 'calc-mode)
(calc-create-buffer)) (calc-create-buffer))
(run-hooks 'calc-end-hook) (run-hooks 'calc-end-hook)
(if (integerp calc-undo-length) (if (integerp calc-undo-length)
...@@ -1631,10 +1628,10 @@ See calc-keypad for details." ...@@ -1631,10 +1628,10 @@ See calc-keypad for details."
(if (math-lessp 1 time) (if (math-lessp 1 time)
(calc-record time "(t)")))) (calc-record time "(t)"))))
(or (memq 'no-align calc-command-flags) (or (memq 'no-align calc-command-flags)
(eq major-mode 'calc-trail-mode) (derived-mode-p 'calc-trail-mode)
(calc-align-stack-window)) (calc-align-stack-window))
(and (memq 'position-point calc-command-flags) (and (memq 'position-point calc-command-flags)
(if (eq major-mode 'calc-mode) (if (derived-mode-p 'calc-mode)
(progn (progn
(goto-char (point-min)) (goto-char (point-min))
(forward-line (1- calc-final-point-line)) (forward-line (1- calc-final-point-line))
...@@ -1664,7 +1661,7 @@ See calc-keypad for details." ...@@ -1664,7 +1661,7 @@ See calc-keypad for details."
(setq calc-command-flags (cons f calc-command-flags)))) (setq calc-command-flags (cons f calc-command-flags))))
(defun calc-select-buffer () (defun calc-select-buffer ()
(or (eq major-mode 'calc-mode) (or (derived-mode-p 'calc-mode)
(if calc-main-buffer (if calc-main-buffer
(set-buffer calc-main-buffer) (set-buffer calc-main-buffer)
(let ((buf (get-buffer "*Calculator*"))) (let ((buf (get-buffer "*Calculator*")))
...@@ -1801,7 +1798,7 @@ See calc-keypad for details." ...@@ -1801,7 +1798,7 @@ See calc-keypad for details."
(and calc-embedded-info (calc-embedded-mode-line-change)))))) (and calc-embedded-info (calc-embedded-mode-line-change))))))
(defun calc-align-stack-window () (defun calc-align-stack-window ()
(if (eq major-mode 'calc-mode) (if (derived-mode-p 'calc-mode)
(progn (progn
(let ((win (get-buffer-window (current-buffer)))) (let ((win (get-buffer-window (current-buffer))))
(if win (if win
...@@ -1988,7 +1985,7 @@ See calc-keypad for details." ...@@ -1988,7 +1985,7 @@ See calc-keypad for details."
(defvar calc-any-evaltos nil) (defvar calc-any-evaltos nil)
(defun calc-refresh (&optional align) (defun calc-refresh (&optional align)
(interactive) (interactive)
(and (eq major-mode 'calc-mode) (and (derived-mode-p 'calc-mode)
(not calc-executing-macro) (not calc-executing-macro)
(let* ((buffer-read-only nil) (let* ((buffer-read-only nil)
(save-point (point)) (save-point (point))
...@@ -2016,7 +2013,7 @@ See calc-keypad for details." ...@@ -2016,7 +2013,7 @@ See calc-keypad for details."
(calc-align-stack-window) (calc-align-stack-window)
(goto-char save-point)) (goto-char save-point))
(if save-mark (set-mark save-mark)))) (if save-mark (set-mark save-mark))))
(and calc-embedded-info (not (eq major-mode 'calc-mode)) (and calc-embedded-info (not (derived-mode-p 'calc-mode))
(with-current-buffer (aref calc-embedded-info 1) (with-current-buffer (aref calc-embedded-info 1)
(calc-refresh align))) (calc-refresh align)))
(setq calc-refresh-count (1+ calc-refresh-count))) (setq calc-refresh-count (1+ calc-refresh-count)))
...@@ -2078,12 +2075,13 @@ the United States." ...@@ -2078,12 +2075,13 @@ the United States."
(null (buffer-name calc-trail-buffer))) (null (buffer-name calc-trail-buffer)))
(save-excursion (save-excursion
(setq calc-trail-buffer (get-buffer-create "*Calc Trail*")) (setq calc-trail-buffer (get-buffer-create "*Calc Trail*"))
(let ((buf (or (and (not (eq major-mode 'calc-mode)) (let ((buf (or (and (not (derived-mode-p 'calc-mode))
(get-buffer "*Calculator*")) (get-buffer "*Calculator*"))
(current-buffer)))) (current-buffer))))
(set-buffer calc-trail-buffer) (set-buffer calc-trail-buffer)
(or (eq major-mode 'calc-trail-mode) (unless (derived-mode-p 'calc-trail-mode)
(calc-trail-mode buf))))) (calc-trail-mode)
(set (make-local-variable 'calc-main-buffer) buf)))))
(or (and calc-trail-pointer (or (and calc-trail-pointer
(eq (marker-buffer calc-trail-pointer) calc-trail-buffer)) (eq (marker-buffer calc-trail-pointer) calc-trail-buffer))
(with-current-buffer calc-trail-buffer (with-current-buffer calc-trail-buffer
...@@ -2152,7 +2150,7 @@ the United States." ...@@ -2152,7 +2150,7 @@ the United States."
(defun calc-trail-here () (defun calc-trail-here ()
(interactive) (interactive)
(if (eq major-mode 'calc-trail-mode) (if (derived-mode-p 'calc-trail-mode)
(progn (progn
(beginning-of-line) (beginning-of-line)
(if (bobp) (if (bobp)
......
2013-09-11 Stefan Monnier <monnier@iro.umontreal.ca>
* semantic/grammar.el (semantic-grammar-mode): Use define-derived-mode.
(semantic-grammar-mode-syntax-table): Rename from
semantic-grammar-syntax-table.
(semantic-grammar-mode-map): Rename from semantic-grammar-map.
* data-debug.el (data-debug-mode-map): Rename from data-debug-map.
(data-debug-mode): Use define-derived-mode.
2013-09-05 Glenn Morris <rgm@gnu.org> 2013-09-05 Glenn Morris <rgm@gnu.org>
* semantic/fw.el (semantic-make-local-hook): * semantic/fw.el (semantic-make-local-hook):
...@@ -15,15 +24,15 @@ ...@@ -15,15 +24,15 @@
* semantic/decorate/mode.el * semantic/decorate/mode.el
(semantic-decoration-on-includes-p-default) (semantic-decoration-on-includes-p-default)
(semantic-decoration-on-includes-highlight-default): Declare for (semantic-decoration-on-includes-highlight-default): Declare for
byte compiler. byte compiler.
* semantic/wisent/python.el (semantic/format): New require. * semantic/wisent/python.el (semantic/format): New require.
2013-07-27 Eric Ludlam <zappo@gnu.org> 2013-07-27 Eric Ludlam <zappo@gnu.org>
* lisp/cedet/semantic/edit.el (semantic-edits-splice-remove): Wrap * lisp/cedet/semantic/edit.el (semantic-edits-splice-remove):
debug message removing middle tag in semantic-edits-verbose-flag Wrap debug message removing middle tag in semantic-edits-verbose-flag
check. check.
2013-07-27 David Engster <deng@randomsample.de> 2013-07-27 David Engster <deng@randomsample.de>
...@@ -69,8 +78,8 @@ ...@@ -69,8 +78,8 @@
`semantic/decorate/include' anymore. `semantic/decorate/include' anymore.
(semantic-toggle-decoration-style): Error if an unknown decoration (semantic-toggle-decoration-style): Error if an unknown decoration
style is toggled. style is toggled.
(define-semantic-decoration-style): Add new :load option. When (define-semantic-decoration-style): Add new :load option.
:load is specified, add autoload tokens for the definition When :load is specified, add autoload tokens for the definition
functions so that code is loaded when the mode is used. functions so that code is loaded when the mode is used.
(semantic-decoration-on-includes): New autoload definition for (semantic-decoration-on-includes): New autoload definition for
highlighting includes. highlighting includes.
...@@ -94,8 +103,8 @@ ...@@ -94,8 +103,8 @@
* semantic/ctxt.el (semantic-ctxt-end-of-symbol): New. * semantic/ctxt.el (semantic-ctxt-end-of-symbol): New.
(semantic-ctxt-current-symbol-default): New. (semantic-ctxt-current-symbol-default): New.
* semantic/bovine/el.el (semantic-default-elisp-setup): Add * semantic/bovine/el.el (semantic-default-elisp-setup):
autoload cookie. Explain existence. Add autoload cookie. Explain existence.
(footer): Add local variable for loaddefs. (footer): Add local variable for loaddefs.
* semantic/db.el (semanticdb-file-table-object): Add new filter, * semantic/db.el (semanticdb-file-table-object): Add new filter,
...@@ -120,7 +129,7 @@ ...@@ -120,7 +129,7 @@
* ede/cpp-root.el (ede-preprocessor-map): Protect against init * ede/cpp-root.el (ede-preprocessor-map): Protect against init
problems. problems.
* ede/proj.el (ede-proj-target): Added a new "custom" option for * ede/proj.el (ede-proj-target): Add a new "custom" option for
custom symbols representing a compiler or linker instead of custom symbols representing a compiler or linker instead of
restricting things to only the predefined compilers and linkers. restricting things to only the predefined compilers and linkers.
...@@ -198,15 +207,15 @@ ...@@ -198,15 +207,15 @@
2013-04-27 David Engster <deng@randomsample.de> 2013-04-27 David Engster <deng@randomsample.de>
* semantic/complete.el * semantic/complete.el
(semantic-collector-calculate-completions-raw): If (semantic-collector-calculate-completions-raw):
`completionslist' is not set, refresh the cache if necessary and If `completionslist' is not set, refresh the cache if necessary and
use it for completions. This fixes the use it for completions. This fixes the
`semantic-collector-buffer-deep' collector (bug#14265). `semantic-collector-buffer-deep' collector (bug#14265).
2013-03-26 Leo Liu <sdl.web@gmail.com> 2013-03-26 Leo Liu <sdl.web@gmail.com>
* semantic/senator.el (senator-copy-tag-to-register): Move * semantic/senator.el (senator-copy-tag-to-register):
register handling logic from register.el. (Bug#14052) Move register handling logic from register.el. (Bug#14052)
2013-03-21 Eric Ludlam <zappo@gnu.org> 2013-03-21 Eric Ludlam <zappo@gnu.org>
...@@ -223,17 +232,17 @@ ...@@ -223,17 +232,17 @@
* semantic/find.el (semantic-filter-tags-by-class): New function. * semantic/find.el (semantic-filter-tags-by-class): New function.
* semantic/tag-ls.el (semantic-tag-similar-p-default): Add * semantic/tag-ls.el (semantic-tag-similar-p-default):
short-circuit in case tag1 and 2 are identical. Add short-circuit in case tag1 and 2 are identical.
* semantic/analyze/fcn.el * semantic/analyze/fcn.el
(semantic-analyze-dereference-metatype-stack): Use (semantic-analyze-dereference-metatype-stack):
`semantic-tag-similar-p' instead of 'eq' when comparing two tags Use `semantic-tag-similar-p' instead of 'eq' when comparing two tags
during metatype evaluation in case they are the same, but not the during metatype evaluation in case they are the same, but not the
same node. (Tweaked patch from Tomasz Gajewski) (Tiny change) same node. (Tweaked patch from Tomasz Gajewski) (Tiny change)
* semantic/db-find.el (semanticdb-partial-synchronize): Fix * semantic/db-find.el (semanticdb-partial-synchronize):
require to semantic/db-typecache to be correct. Fix require to semantic/db-typecache to be correct.
(semanticdb-find-tags-external-children-of-type): Make this a (semanticdb-find-tags-external-children-of-type): Make this a
brutish search by default. brutish search by default.
...@@ -243,19 +252,19 @@ ...@@ -243,19 +252,19 @@
input tag as the place to start searching for externally defined input tag as the place to start searching for externally defined
methods. methods.
* semantic/db-file.el (semanticdb-default-save-directory): Doc * semantic/db-file.el (semanticdb-default-save-directory):
fix: Add ref to default value. Doc fix: Add ref to default value.
* semantic/complete.el (semantic-complete-post-command-hook): When * semantic/complete.el (semantic-complete-post-command-hook):
detecting if cursor is outside completion area, do so if cursor When detecting if cursor is outside completion area, do so if cursor
moves before start of overlay, or the original starting location moves before start of overlay, or the original starting location
of the overlay (i.e., if user deletes past beginning of the of the overlay (i.e., if user deletes past beginning of the
overlay region). overlay region).
(semantic-complete-inline-tag-engine): Initialize original start (semantic-complete-inline-tag-engine): Initialize original start
of `semantic-complete-inline-overlay'. of `semantic-complete-inline-overlay'.
* semantic/bovine/c.el (semantic-c-describe-environment): Update * semantic/bovine/c.el (semantic-c-describe-environment):
some section titles. Test semanticdb table before printing it. Update some section titles. Test semanticdb table before printing it.
(semantic-c-reset-preprocessor-symbol-map): Update (semantic-c-reset-preprocessor-symbol-map): Update
`semantic-lex-spp-macro-symbol-obarray' outside the loop over all `semantic-lex-spp-macro-symbol-obarray' outside the loop over all
the files contributing to its value. the files contributing to its value.
...@@ -271,8 +280,8 @@ ...@@ -271,8 +280,8 @@
* srecode/cpp.el (srecode-semantic-handle-:c): Replace all * srecode/cpp.el (srecode-semantic-handle-:c): Replace all
characters in FILENAME_SYMBOL that aren't valid CPP symbol chars. characters in FILENAME_SYMBOL that aren't valid CPP symbol chars.
* srecode/map.el (srecode-map-validate-file-for-mode): Force * srecode/map.el (srecode-map-validate-file-for-mode):