emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] trunk r117586: Use `defvar-local' more.


From: Thien-Thi Nguyen
Subject: [Emacs-diffs] trunk r117586: Use `defvar-local' more.
Date: Sun, 27 Jul 2014 09:38:32 +0000
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 117586
revision-id: address@hidden
parent: address@hidden
committer: Thien-Thi Nguyen <address@hidden>
branch nick: trunk
timestamp: Sun 2014-07-27 11:41:59 +0200
message:
  Use `defvar-local' more.
  
  * lisp/progmodes/hideshow.el
  (hs-c-start-regexp, hs-block-start-regexp)
  (hs-block-start-mdata-select, hs-block-end-regexp)
  (hs-forward-sexp-func, hs-adjust-block-beginning): ...here;
  remove corresponding `make-variable-buffer-local' top-level calls.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/hideshow.el     hideshow.el-20091113204419-o5vbwnq5f7feedwu-824
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-07-27 07:05:13 +0000
+++ b/lisp/ChangeLog    2014-07-27 09:41:59 +0000
@@ -1,3 +1,12 @@
+2014-07-27  Thien-Thi Nguyen  <address@hidden>
+
+       Use `defvar-local' more.
+       * progmodes/hideshow.el
+       (hs-c-start-regexp, hs-block-start-regexp)
+       (hs-block-start-mdata-select, hs-block-end-regexp)
+       (hs-forward-sexp-func, hs-adjust-block-beginning): ...here;
+       remove corresponding `make-variable-buffer-local' top-level calls.
+
 2014-07-27  Fabián Ezequiel Gallina  <address@hidden>
 
        Cleanup error signals.  (Bug#18067)

=== modified file 'lisp/progmodes/hideshow.el'
--- a/lisp/progmodes/hideshow.el        2014-05-28 01:12:04 +0000
+++ b/lisp/progmodes/hideshow.el        2014-07-27 09:41:59 +0000
@@ -390,37 +390,31 @@
       :help "Do not hidden code or comment blocks when isearch matches inside 
them"
       :active t :style radio :selected (eq hs-isearch-open nil)])))
 
-(defvar hs-c-start-regexp nil
+(defvar-local hs-c-start-regexp nil
   "Regexp for beginning of comments.
 Differs from mode-specific comment regexps in that
 surrounding whitespace is stripped.")
-(make-variable-buffer-local 'hs-c-start-regexp)
 
-(defvar hs-block-start-regexp nil
+(defvar-local hs-block-start-regexp nil
   "Regexp for beginning of block.")
-(make-variable-buffer-local 'hs-block-start-regexp)
 
-(defvar hs-block-start-mdata-select nil
+(defvar-local hs-block-start-mdata-select nil
   "Element in `hs-block-start-regexp' match data to consider as block start.
 The internal function `hs-forward-sexp' moves point to the beginning of this
 element (using `match-beginning') before calling `hs-forward-sexp-func'.")
-(make-variable-buffer-local 'hs-block-start-mdata-select)
 
-(defvar hs-block-end-regexp nil
+(defvar-local hs-block-end-regexp nil
   "Regexp for end of block.")
-(make-variable-buffer-local 'hs-block-end-regexp)
-
-
-(defvar hs-forward-sexp-func 'forward-sexp
+
+(defvar-local hs-forward-sexp-func 'forward-sexp
   "Function used to do a `forward-sexp'.
 Should change for Algol-ish modes.  For single-character block
 delimiters -- ie, the syntax table regexp for the character is
 either `(' or `)' -- `hs-forward-sexp-func' would just be
 `forward-sexp'.  For other modes such as simula, a more specialized
 function is necessary.")
-(make-variable-buffer-local 'hs-forward-sexp-func)
 
-(defvar hs-adjust-block-beginning nil
+(defvar-local hs-adjust-block-beginning nil
   "Function used to tweak the block beginning.
 The block is hidden from the position returned by this function,
 as opposed to hiding it from the position returned when searching
@@ -439,7 +433,6 @@
 It should not move the point.
 
 See `hs-c-like-adjust-block-beginning' for an example of using this.")
-(make-variable-buffer-local 'hs-adjust-block-beginning)
 
 (defvar hs-headline nil
   "Text of the line where a hidden block begins, set during isearch.


reply via email to

[Prev in Thread] Current Thread [Next in Thread]