[Emacs-diffs] /srv/bzr/emacs/trunk r110947: * lisp/cedet/semantic/fw.el (semantic-make-local-hook)

[Stefan Monnier]

------------------------------------------------------------
revno: 110947
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2012-11-19 11:16:07 -0500
message:
  * lisp/cedet/semantic/fw.el (semantic-make-local-hook)
  (semantic-mode-line-update): Simplify via CSE.
modified:
  lisp/cedet/ChangeLog
  lisp/cedet/semantic/fw.el

=== modified file 'lisp/cedet/ChangeLog'
--- a/lisp/cedet/ChangeLog      2012-11-16 17:20:23 +0000
+++ b/lisp/cedet/ChangeLog      2012-11-19 16:16:07 +0000
@@ -1,12 +1,17 @@
+2012-11-19  Stefan Monnier  <address@hidden>
+
+       * semantic/fw.el (semantic-make-local-hook, semantic-mode-line-update):
+       Simplify via CSE.
+
 2012-11-16  David Engster  <address@hidden>
 
-       * semantic/symref/list.el (semantic-symref-symbol): Use
-       `semantic-complete-read-tag-project' instead of
+       * semantic/symref/list.el (semantic-symref-symbol):
+       Use `semantic-complete-read-tag-project' instead of
        `semantic-complete-read-tag-buffer-deep', since the latter is not
        working correctly.
 
-       * semantic/symref.el (semantic-symref-result-get-tags): Use
-       `find-buffer-visiting' to follow symbolic links.
+       * semantic/symref.el (semantic-symref-result-get-tags):
+       Use `find-buffer-visiting' to follow symbolic links.
 
        * semantic/fw.el (semantic-find-file-noselect): Always set
        `enable-local-variables' to `:safe' when loading files.

=== modified file 'lisp/cedet/semantic/fw.el'
--- a/lisp/cedet/semantic/fw.el 2012-11-14 20:20:20 +0000
+++ b/lisp/cedet/semantic/fw.el 2012-11-19 16:16:07 +0000
@@ -122,15 +122,13 @@
     )
 
 
-  (if (and (not (featurep 'xemacs))
-          (>= emacs-major-version 21))
-      (defalias 'semantic-make-local-hook 'identity)
-    (defalias 'semantic-make-local-hook 'make-local-hook)
-    )
+  (defalias 'semantic-make-local-hook
+    (if (and (not (featurep 'xemacs))
+             (>= emacs-major-version 21))
+        #'identity  #'make-local-hook))
 
-  (if (featurep 'xemacs)
-      (defalias 'semantic-mode-line-update 'redraw-modeline)
-    (defalias 'semantic-mode-line-update 'force-mode-line-update))
+  (defalias 'semantic-mode-line-update
+    (if (featurep 'xemacs) #'redraw-modeline #'force-mode-line-update))
 
   ;; Since Emacs 22 major mode functions should use `run-mode-hooks' to
   ;; run major mode hooks.