Miscellaneous minor cleanups and simplifications.

* lisp/help-fns.el (describe-variable): Don't croak when doc is not found.
* lisp/vc/pcvs.el (cvs-retrieve-revision): Avoid toggle-read-only.
* lisp/menu-bar.el (menu-bar-line-wrapping-menu): Purecopy a tiny bit more.
* lisp/emacs-lisp/syntax.el (syntax-ppss): Simplify with new `if' place.
* lisp/emacs-lisp/smie.el (smie-next-sexp): CSE.
* lisp/emacs-lisp/macroexp.el (macroexp-let2): Fix edebug spec and avoid
((lambda ..) ..).
* lisp/emacs-lisp/eieio.el (eieio-oref, slot-value): Use simpler defsetf.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 22e8c23c142dcf98630760b8003e7440d3f64cf8..d157c36e36fd9dbc8617b509898e84a359456937 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2012-06-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * help-fns.el (describe-variable): Don't croak when doc is not found.
+       * vc/pcvs.el (cvs-retrieve-revision): Avoid toggle-read-only.
+       * menu-bar.el (menu-bar-line-wrapping-menu): Purecopy a tiny bit more.
+       * emacs-lisp/syntax.el (syntax-ppss): Simplify with new `if' place.
+       * emacs-lisp/smie.el (smie-next-sexp): CSE.
+       * emacs-lisp/macroexp.el (macroexp-let2): Fix edebug spec and avoid
+       ((lambda ..) ..).
+       * emacs-lisp/eieio.el (eieio-oref, slot-value): Use simpler defsetf.
+
 2012-06-23  Chong Yidong  <cyd@gnu.org>
 
        * info.el (Info-mouse-follow-link): Accept symbol values of

diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el
index 1efb74e713927bf962487bdd6fbb0a3d32368d2d..cfba4a84d135895d8290950735f4392ce775394b 100644 (file)
--- a/lisp/emacs-lisp/eieio.el
+++ b/lisp/emacs-lisp/eieio.el
@@ -2543,10 +2543,12 @@ This is usually a symbol that starts with `:'."
 ;;; Here are some CLOS items that need the CL package
 ;;
 
-(defsetf slot-value (obj slot) (store) (list 'eieio-oset obj slot store))
-(defsetf eieio-oref (obj slot) (store) (list 'eieio-oset obj slot store))
+(defsetf eieio-oref eieio-oset)
+;; FIXME: Not needed for Emacs>=24.2 since setf follows function aliases.
+(defsetf slot-value eieio-oset)
 
 ;; The below setf method was written by Arnd Kohrs <kohrs@acm.org>
+;; FIXME: Not needed for Emacs>=24.2 since setf expands macros.
 (define-setf-method oref (obj slot)
   (with-no-warnings
     (require 'cl)

diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index 6275fd1cdf8a7203bb3b7ae806b3e54aae9308ef..c6e1c0fea387b27d05842cf493949ca14ab9e92f 100644 (file)
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -269,11 +269,11 @@ This is like `(let ((v ,EXP)) ,EXPS) except that `v' is a new generated
 symbol which EXPS can find in VAR.
 TEST should be the name of a predicate on EXP checking whether the `let' can
 be skipped; if nil, as is usual, `macroexp-const-p' is used."
-  (declare (indent 3) (debug (sexp form sexp body)))
+  (declare (indent 3) (debug (sexp sexp form body)))
   (let ((bodysym (make-symbol "body"))
         (expsym (make-symbol "exp")))
     `(let* ((,expsym ,exp)
-            (,var (if (,(or test #'macroexp-const-p) ,expsym)
+            (,var (if (funcall #',(or test #'macroexp-const-p) ,expsym)
                       ,expsym (make-symbol "x")))
             (,bodysym ,(macroexp-progn exps)))
        (if (eq ,var ,expsym) ,bodysym

diff --git a/lisp/emacs-lisp/smie.el b/lisp/emacs-lisp/smie.el
index be3a98284918208286c342eb21c5b709696769a6..9fa8a108236438275c4639f3f74922bdefc7c695 100644 (file)
--- a/lisp/emacs-lisp/smie.el
+++ b/lisp/emacs-lisp/smie.el
@@ -708,13 +708,12 @@ Possible return values:
               (when (zerop (length token))
                 (condition-case err
                     (progn (goto-char pos) (funcall next-sexp 1) nil)
-                  (scan-error (throw 'return
-                                     (list t (cl-caddr err)
-                                           (buffer-substring-no-properties
-                                            (cl-caddr err)
-                                            (+ (cl-caddr err)
-                                               (if (< (point) (cl-caddr err))
-                                                   -1 1)))))))
+                  (scan-error
+                   (let ((pos (nth 2 err)))
+                     (throw 'return
+                            (list t pos
+                                  (buffer-substring-no-properties
+                                   pos (+ pos (if (< (point) pos) -1 1))))))))
                 (if (eq pos (point))
                     ;; We did not move, so let's abort the loop.
                     (throw 'return (list t (point))))))

diff --git a/lisp/emacs-lisp/syntax.el b/lisp/emacs-lisp/syntax.el
index 748f31464e0022bf232a207fa33334cdc4e2b706..c3d78b3444bbda6b10118785474fce275e93fc3a 100644 (file)
--- a/lisp/emacs-lisp/syntax.el
+++ b/lisp/emacs-lisp/syntax.el
@@ -511,10 +511,8 @@ Point is at POS when this function returns."
                  (setq ppss (parse-partial-sexp
                              pt-min (setq pt-min (/ (+ pt-min pos) 2))
                              nil nil ppss))
-                 (let ((pair (cons pt-min ppss)))
-                   (if cache-pred
-                       (push pair (cdr cache-pred))
-                     (push pair syntax-ppss-cache))))
+                  (push (cons pt-min ppss)
+                        (if cache-pred (cdr cache-pred) syntax-ppss-cache)))
 
                ;; Compute the actual return value.
                (setq ppss (parse-partial-sexp pt-min pos nil nil ppss))

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 72b494f98003ff43fe8ae140692876174e4058ec..555bdbb69ce5f906a12c3d1d3d058306ab233a39 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -806,8 +806,12 @@ it is displayed along with the global value."
                    (obsolete (get variable 'byte-obsolete-variable))
                   (use (car obsolete))
                   (safe-var (get variable 'safe-local-variable))
-                   (doc (or (documentation-property variable 'variable-documentation)
-                            (documentation-property alias 'variable-documentation)))
+                   (doc (condition-case err
+                            (or (documentation-property
+                                 variable 'variable-documentation)
+                                (documentation-property
+                                 alias 'variable-documentation))
+                          (error (format "Doc not found: %S" err))))
                    (extra-line nil))
               ;; Add a note for variables that have been make-var-buffer-local.
               (when (and (local-variable-if-set-p variable)

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index ec6a4621a4e22c56cc7cd71703173caf4b41402b..64b0a18e901cbdf476d7652892efa7651351a883 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -1126,11 +1126,12 @@ mail status in mode line"))
     (define-key menu [word-wrap]
       `(menu-item
        ,(purecopy "Word Wrap (Visual Line mode)")
-       (lambda ()
-         (interactive)
-         (unless visual-line-mode
-           (visual-line-mode 1))
-         (message ,(purecopy "Visual-Line mode enabled")))
+       ,(purecopy
+          (lambda ()
+            (interactive)
+            (unless visual-line-mode
+              (visual-line-mode 1))
+            (message "Visual-Line mode enabled")))
        :help ,(purecopy "Wrap long lines at word boundaries")
        :button (:radio . (and (null truncate-lines)
                               (not (truncated-partial-width-window-p))

diff --git a/lisp/vc/pcvs.el b/lisp/vc/pcvs.el
index 6aec24755b5c8de3ff883b560368fb50e3ef603b..0508f45149a4c7d68c2d793c774b4932c6732797 100644 (file)
--- a/lisp/vc/pcvs.el
+++ b/lisp/vc/pcvs.el
@@ -1758,7 +1758,7 @@ Signal an error if there is no backup file."
            (set-buffer-modified-p nil)
            (let ((buffer-file-name (expand-file-name file)))
              (after-find-file))
-           (toggle-read-only 1)
+           (setq buffer-read-only t)
            (message "Retrieving revision %s... Done" rev)
            (current-buffer))))))